display month name in msgbox

[rjwebgraphix]

How can I get this to show the name of the month in the msgbox instead of the date? The usage date comes from a cell which is already formatted to display the month name, but is really just a date.

Sheets("Datasheet").Activate
UsageDate = Sheets("Summary").Cells(4, "A")
With Sheets("Datasheet")
    lrow = 2
    Do While Cells(lrow, "A") <> ""
        DateToChk = Cells(lrow, "O")
        
        If Month(UsageDate) = Month(DateToChk) Then
            GoTo ChkDistrict
        End If
        lrow = lrow + 1
    Loop
    
    Sheets("IMPORTER").Activate
    MsgBox ("There is no data in the file for the month of " & UsageDate & (Chr(13)) & _
            "Either change the date or import a file with data for that month."), vbCritical
    Exit Sub
End With

 

[mikerickson]

Try

MsgBox Format(Date,"mmmm")

 

[Tom Urtis]

In your messagebox code line, change
usagedate

to
Format(usagedate, "mmmm")

example

MsgBox ("There is no data in the file for the month of " & Format(usagedate, "mmmm") & (Chr(13)) & _
"Either change the date or import a file with data for that month.")

 

[rjwebgraphix]

Thanks! It was funny, I found another solutions and was just coming in to say I found it. It works, but is different, so here is an alternate solution.

    MsgBox ("There is no data in the file for the month of " & MonthName(Month(UsageDate)) & (Chr(13)) & _
            "Either change the date or import a file with data for that month."), vbCritical

Found it by accident when I was trying different things. I tried to use monthname as a variable but it error'd because its a built-in function. So I just typed MonthName and pressed F1 and WOW, there's a solution.

Thanks again,

RJ