Sub CheckSheet()
On Error GoTo Err_check
Sheets("Sheet2").Select
Exit Sub
Err_check:
If Err.Number = 9 Then
MsgBox "No such sheet exits"
Resume Next
Else
MsgBox Err.Number & " " & Err.Description
End If
End Sub