VBAでグラフを作るとExcelが落ちる

Question

お世話になっております。
表題の件で質問がございます。

環境：
Windows 10 Pro x64
Excel 2016

他のサイトを参考に下記の表からグラフを作成するマクロを組んでみました

Sub AddGraph()

	'グラフの対象データ範囲を定義
	Dim trgtSh As Worksheet
	Set trgtSh = ThisWorkbook.Worksheets("Sheet1")
	Dim dataRng As Range
	Set dataRang = trgtSh.Range("A1:B16")

	'グラフを貼り付けたいセルを定義
	Dim pasteRng As Range
	Set pasteRng = trgtSh.Range("D2")

	'グラフ編集
	With trgtSh.Shapes.AddChart2.Chart
		'グラフの種類を指定（ここでは「集合縦棒」）
		.ChartType = xlColumnClustered
		'グラフの対象データ範囲を指定
		.SetSourceData dataRng

		'グラフの位置を指定
		.Parent.Top = pasteRng.Top
		.Parent.Left = pasteRng.Left
	End With

End Sub

上記マクロを動作させるとエクセルが落ちます。
trgtSh.Shapes.AddChart2.Chartで起こってそうなのですが、
パラメータを調べても変な箇所は無く、理由が全く分からないので困っております。
解決方法をご教授いただけませんでしょうか。

Answer 1

Option Explicitを付けてコンパイルする習慣をつける。

Comments

[izuki_y]

ご回答ありがとうございます。
おまじないで使っていたOption Explicitにこんな意味があった事を初めて知りました。

すぐにオプション設定で「変数の宣言を強制する」にチェックを入れました

参考
http://officetanaka.net/excel/vba/beginner/11.htm

Answer 2

Dim dataRng As Range

Set dataRang = trgtSh.Range("A1:B16")

dataRng
dataRang
誤記でしょうか？

Comments

[izuki_y]

ご回答ありがとうございます。
おっしゃる通りです。

そこの箇所を修正したらExcelが落ちることなくグラフを作る事を確認できました。

素人ミスをしてしまいお恥ずかしい限りです。