are you saying my macro was causing the problems with yours?
I think so, but WhaddaINo?

In the WorkSheet_Activate Procedure, I don't see what this code is used for. I see that it Activates the first Date Cell in Column "A", but why?
[VBA]ActiveSheet.Range("A1").Activate
ActiveSheet.Cells.Find(What:=Date, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
[/VBA]
More short posts to follow