'シートの存在の有無チェック 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