VBA Place Current Month Number in Certain Sheet Cell

[JenniferS]

Hi,

Is there VBA that can Open Workbook to certain sheet and change a certain cell value on that sheet to the current month's number?
I would like the workbook to open to the sheet called 'Calendar' and the cell E6 to contain the current month's number which would be "6" for this month of June.

Thank you

 

[Belleke]

Code goes in ThisWorkbook Event

Private Sub Workbook_Open()
With Sheets("Calendar")
    .Select
    .Range("E6").Value = Month(Date)
End With
End Sub

 

[Belleke]

Hi,
Set cell format to standard or number.

 

[JenniferS]

Thanks so much it works great! At first I had the cell formatted as a date which is incorrect. I changed to general format and it works now.

 

[Belleke]

Glad to help.