Sub FormatNow() Dim myWorksheetName As String myWorksheetName = Format(Now, "mmmm_yyyy") MsgBox myWorksheetName End Sub