ExcelのVBAのエラーについて

質問

以下のVBAだとファイルの選択画面が出てきて、キャンセルを押して選択をやめると「ファイルが選択されませんでした」と出て、実行時のエラー1004が出てしまいます。 どうにかエラーを出さない方法を考えているのですが、何がだめなのかが分かりません。色々試しましたが上手くいかなくて非常に困っています。VBA初心者ですがよろしくお願いいたします。
Sub 実装図読み込み1_Click()
Dim vriFileName As Variant
vriFileName = Application.GetOpenFilename( _
FileFilter:="MIcrosoft Excelブック,*.xls,", _
Title:="実装図のファイルを選択", _
MultiSelect:=False)
If vriFileName = Falese Then
MsgBox "ファイルが選択されませんでした。", _
vbOKOnly + vbExcelamation, "ファイル名の入力チェック"
End If
Set targetBook = Workbooks.Open(vriFileName)
Dim myCnt As Integer
Dim myArray
myCnt = Worksheets.Count
If myCnt >= 1 Then
ReDim myArray(myCnt - 1)
For i = 1 To myCnt
myArray(i - 1) = Worksheets(i).Name
Next i
Sheets(myArray).Copy After:=ThisWorkbook.Sheets(1)
End If
targetBook.Close False
Application.ScreenUpdating = True
Set targetBook = Nothing
Set newWorksheet = Nothing
End Sub

回答No.1

kmetu · ベストアンサー

If vriFileName = Falese Then
MsgBox "ファイルが選択されませんでした。", _
vbOKOnly + vbExcelamation, "ファイル名の入力チェック"
Exit Sub
End If

というように　Exit Sub　を入れてみてください。

ファイルを選択していない状態でファイルを開くところまで進んでいますから
ファイル名が不正なファイルを開こうとしてエラーになっています。

回答No.2

kmetu

もしくは

If vriFileName = Falese Then
MsgBox "ファイルが選択されませんでした。", _
vbOKOnly + vbExcelamation, "ファイル名の入力チェック"

Else

Set targetBook = Workbooks.Open(vriFileName)
中略
Set newWorksheet = Nothing

End If
にしてください。

お礼

kmetuさん、素早いかつ確実なご回答どうもありがとうございます。
おかげさまでうまく実行できました。
ネットと本を参考に初めてVBAを使用して今回作成しているのでいざという時に応用が利かなくて困ってましたが大変助かりました。