Automation of Date

Dharmendra_Bharwad 

I did the following:

• I right-clicked the Previous Month button and selected Assign Macro... from the context menu.
• I entered PreviousMonth in the Macro name box (a macro name cannot contain spaces), then clicked New.
• This took me to the Visual Basic Editor, with the first and last lines already created. It looked like this:

Sub PrevMonth()

End Sub

• I typed the code into the line in between. It takes the value of cell B6, and used the EOMONTH function to store the last day of the previous month in B6:

Sub PrevMonth()
    Range("B6").Value = Application.EoMonth(Range("B6").Value, -1)
End Sub

• I switched back to Excel, then did basically the same for the Next Month button, but with a different line of code, of course.
• Finally, I pressed F12 from the workbook to display the Save As dialog.
• I selected Excel Macro-enabled Workbook (*.xlsm) from the Save as type dropdown, then clicked Save.