Auto email before save if criteria is met

[snowboy001]

I have some macro's that are tracking changes on each sheet in my workbook. If there are changes detected, it puts a "1" in cell A1 of a hidden sheet (named "Sheet1" for this demonstration). I am wanting to run a BeforeSave event to check for that "1", and if it is there, send an email out to my group to notify them.

Here is what I am thinking...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

'run macros to update changes, and put a "1" in cell A1 of the hidden sheet
If Sheets("Sheet1").Range("A1").Value = "1" Then
'code to send out email to my group (I already have this code)
End If
End Sub

The part in red is what I am having trouble with.

 

[Andrew Poulsom]

Remove the quotes around "1". They make it a string not a number.

 

[snowboy001]

Still doesn't work. Usually when I type Sheets("Sheet1"). it pulls up a list of values, and in this module, it is not even doing that. Kind of like it's not enen acknowledging the command.

 

[Andrew Poulsom]

Where have you put your code? It needs to be in the ThisWorbook module.

 

[snowboy001]

Oops! I guess I didn't realize that had to be in there. It works great now! Thanks!!!