When WorkBook Opens, If Then

[suthern_gntlman]

A commandbutton copies Daily Lab.xlsm and saves it into a dir, based upon a Date in a certain cell. (used a code from MrExcel forums) It Works great, btw....

Ex: Daily Lab.xlsm has a date in "C6" of 2/23/2010. It saves it into the Daily Lab\2010\FEB dir, as Feb232010.xlsm (creates dir when month and year changes)

The macro I created then clears all data from Daily Lab.xlsm, saves and closes it. When the LabTech opens it up all data (including previous date) must be gone. I used the following code to accomplish this:

In ThisWorkBook:

 Private Sub Workbook_Open()
'CLEARS DATE FOR FRESH DATA ENTRY
        Range("C6").Select
        Selection.ClearContents
    
End Sub

My Problem: I need the macro to stay in Feb232010.xlsm for other reasons.

Unknown solution: I would like to use an "If Then" in ThisWorkBook that upon opening will look at the Date in "C6" and compare it to the name of the WorkBook. If they equal then the date stays, if they don't equal the date clears.

I'm able to understand what code does once I see it, but having a real hard time creating it from scratch...

Thanks in advance...

 

[DonkeyOte]

We're assuming you have only sheet of course... or that the file is always opened on appropriate sheet....

Private Sub Workbook_Open()
'CLEARS DATE FOR FRESH DATA ENTRY
With Range("C6")
    If Format(.Value,"mmmddmmyyyy") & ".xlsm" = ThisWorkbook.Name Then .ClearContents
End With
End Sub

 

[suthern_gntlman]

Man... so simple...

Thanks