'シートの存在の有無チェック
Dim cnt As Integer
'コピー先ブックのシートの枚数
cnt = Workbooks(fName).Sheets.Count
Debug.Print Workbooks(fName).Sheets(cnt).Name
For i = 1 To cnt
If Workbooks(fName).Sheets(i).Name = sName Then
'指定したシートを選択
Sheets(sName).Select
'データ件数取得
cntNo = Range("A50000").End(xlUp).Row - 1
Exit For
ElseIf i = cnt Then
MsgBox ("シート「" & sName & _
"」があるか確認してください" _& vbCrLf & "処理を中止します")
'ワークブックを保存しないで閉じる
Workbooks(fName).Close SaveChanges:=False
Exit Sub
End If
Next