下面的VBA代碼可以判斷當前Excel工作簿中的某個工作表是否存在，如果指定的工作表不存在，則以指定的工作表名新建一個工作表，如果指定的工作表已存在，則給出一個提示，并激活該工作表。下例中指定的工作表標簽為“一月”，可根據實際進行修改。

Sub IsSheetExist()
Dim ws As Worksheet
Dim sName As String
sName = "一月" '指定工作表
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then '指定的工作表不存在
Sheets.Add.Name = sName
Else '指定的工作表已存在
MsgBox "“" & sName & "”工作表已存在。"
ws.Activate
End If
End Sub