用VBA判断工作表是否存在

下面的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