What's wrong with this...it's too simple?
Sub InsertDate()
If Worksheets("NothernTrust").Cells(1, 1).Value = Date Then
'Note that A =1, B =2, C=3, D=4, E=5, F=6, G=7 Sheet1.Cells(Row#, Column#)
MsgBox "No action has been taken. This worksheet has alredy...