Automatically name a new worksheet with a date sequence

AnaPistol This macro checks if there alreay is a worksheet for the current month. If not it creates one. If there is, it selects it:

Sub AddMonthSheet()
    Dim sName As String
    Dim oSh As Worksheet
    sName = Format(Date, "yyyy-mmm")
    On Error Resume Next
    Set oSh = Worksheets(sName)
    If oSh Is Nothing Then
        Set oSh = Worksheets.Add
    End If
    oSh.Name = sName
    oSh.Activate
End Sub