I have a workbook that has data for entire month. Date, Sales, Credits,
Debits, Expenses, etc.

At the end of the month when I make a copy of this workbook and paste it to
a new workbook the Date in the first row changed to the previous day (last
day of the previous month). All the other dates also change to match. I
end up with dates from Dec 31 to Jan 30th instead of Jan 1 - Jan 31st. The
other data remains correct and doesn't shift.

Here is the line of code that does the copy:

Workbooks("CheckUp.xls").Worksheets("CURRENT MONTH").Copy

Then I have vba open the SAVE AS dialog so the user can give it the name of
the previous month and save it.
Is there a way to automate naming the copied workbook with the name of the
previous month - ""Jan 07" (just month and year) for example?

fileSaveName = Application.GetSaveAsFilename( fileFilter:="Excel Files
(*.xls), *.xls")
If fileSaveName < False Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fileSaveName
Application.DisplayAlerts = True

Thanks for any help given. I cetrainly appreciate it.

Jon