Message Box to appear only once upon activating worksheet

[Jollux]

Hi,

I want a box to pop up when a worksheet is activated to alert the user to delete the sheet if they are not using it. So far I have:

[vba]Private Sub Worksheet_Activate()
MsgBox "Not using Census Data? Delete this tab!", vbInformation + vbOKOnly, "WARNING"
End Sub[/vba]

I'm feeling a bit stupid - but how to I get the alert to appear ONLY once, and not every time the worksheet is activated in that session?

Cheers
-Clueless

[Logit]

.
One method would be to input an "X" or a "1" in a cell somewhere in your workbook. Rewrite the code so it first checks if
the X or 1 is present. If so, don't load the MsgBox .... simply exit the sub.

Include in the code if the X or 1 is not present to display the MsgBox.

In the Workbook_Close event in the ThisWorkbook module ... include code that deletes the X or 1 so the macro is ready to
run the next time.

[nigelog]

You would need to use a variable to flag the status as to whether activated before or not.

Please Login or Register  to view this content.

[Logit]

.
nigelog :

Your method is cleaner and easier !