亲，代码如下：
Sub sh()On Error Resume NextIf Sheets("甲") Is Nothing Then MsgBox "不存在" Else MsgBox "存在"End Sub
