シートが複数あると中止

'シートが複数あると中止
Dim sht1stop As String
sht1stop = Sheets.Count

If sht1stop > 1 Then
MsgBox "シートが複数あります。" & vbCrLf & "不要なシートを削除して1枚にしてください。" ' & vbCrLf & は改行
Exit Sub
Else
End If