Open Workbook to Calendar sheet cell E2 Current Month Number

[JenniferS]

Hi,

What is the VBA code to open workbook to cell E2 on the Calendar sheet and make the cell value the current month number?

Thank you

 

[KenU]

You will need the below in a code module.

Sub Auto_Open()
Dim wA As Workbook
Dim sCal As Worksheet

Set wA = ThisWorkbook
Set sCal = wA.Worksheets("Calendar")

sCal.Range("A2") = Month(Now())
sCal.Activate
sCal.Range("A2").Activate

End Sub

Hope that helps.

Regards,
Ken

 

[JenniferS]

Perfect thanks. I initially put the code in this workbook but that did not work. Sorry you did say to put in it a code module which I then did. Now it works perfectly.

Have a blessed day and thanks for your help.