tifを表示するマクロを教えてください。

質問

現在エクセル2003を使用していますが、以前は95・97を使用していました、その時に使用していたマクロがエラーを起こすようになりました。誰かお力添えをお願いします、マクロはこんな感じでした。
Private Sub CommandButton3_Click()

TifPath = "P:\正式図\Mirror\コピー ～ test"
For Each Cell In Range("M2") 'M列にファイルパスが書かれている場合
On Error Resume Next
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=TifPath + Cell.Value, TextToDisplay:=Cell.Value
On Error GoTo 0
Next
If Range("M2") = "" Then
MsgBox "図面ファイルを選択して下さい。", vblnformation, "チェック確認"
Else
Range("M2").Select
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True '図面ファイルを開く
End If
Range("M2").Clear 'M2をクリアー
CheckBox1 = False 'CheckBox1をクリアー
CheckBox2 = False 'CheckBox2をクリアー
CheckBox3 = False 'CheckBox3をクリアー
TextBox1.Text = "" 'TextBox1をクリアー
TextBox2.Text = "" 'TextBox2をクリアー
TextBox3.Text = "" 'TextBox3をクリアー
TextBox4.Text = "" 'TextBox4をクリアー

End Sub

回答No.1

flyingbee

もう少し補足して下さい。
今まで2003では使えていましたか。それとも初回でいきなりエラーですか？
エラーメッセージは何でしょうか。
文法エラーでしょうか、実行時エラーでしょうか。

補足

すみません、補足します。
2003では使えていません、2003以前なら使えていました。
あとエラーは実行時
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True '図面ファイルを開くでおこります！