Run a macro only if its the first time opening a model?

[squnibi]

Hi

How would I be able to set up a code that will run a macro only if it is the first time you open the model that day?

 

[healey21]

Set a trap in a cell, ie when you run the macro it adds a date or something in a cell, then the next time it runs check the cell to see if there is a content or latest date and if then exist the sub, else run it.

 

[squnibi]

Thanks for the reply. Can you be a little more specific though? I already have created a named range in excel that calculates the current time. Now I want a code that will look at this date and if it is the first time the model is open, then I would like it to run another macro.

 

[SaladProblems]

What he means is you would choose a cell somewhere in the workbook, and when the sheet opens it would check the cell and if today's date were more recent than it, insert a new date and run the macro. If it were older or the same it would exit the sub.

 

[squnibi]

Yes I understand that part. I already have a cell in place that does this but need help with the actual code. I'm pretty new to VBA

 

[healey21]

You might need to show your code to help complete your task but something like this might work for you

Sub CheckCell()
IF range("CellID").value=Date Then
Exit Sub
Else
'Run your code
End Sub

 

[SaladProblems]

Yeah, something to that effect. Remember you can call your macro by name if you like, so you can have your macro be separate from this one.

I'd probably go with something like:

Sub CheckCell()

With Range("CellID")
If .value < Date Then
     'Name of macro you want to run
     .value = Date
End If
End Sub

 

[pcc]

Won't work if the user closes the model without saving changes....

 

[SaladProblems]

Missing and End With there after the End If

 

[SaladProblems]

Is that a bad thing though? Maybe he doesn't want the effects of the macro set in stone, or it may be a good thing that it runs again when the workbook is reopened. Depends on what he's trying to do.