Highlight and email

[Mir Khan]

Hi, is it possible to highlight the cell/cells (where changes were made) and
email the row/rows with the column names if any changes are made to the file.
[email to be sent out when user select to save the file and i have 3
recepients who should receive email about the change].

Please Help

Thanks

Mir Khan

 

[ryguy7272]

See this for the email part:
http://www.rondebruin.nl/sendmail.htm

Try this code for the compare part:
Sub Compare2Shts()
For Each Cell In Worksheets("CompareSheet#1").UsedRange
If Cell.Value <> Worksheets("CompareSheet#2").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next

For Each Cell In Worksheets("CompareSheet#2").UsedRange
If Cell.Value <> Worksheets("CompareSheet#1").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next
End Sub


Regards,
Ryan---