Jim...
Thanks for the code. We followed direction by the way thank you but have a
compile error which says Only comments may appear after End Sub, End
Function, or End Property. The words Private Const are highlited. When i
removed that line the next compile error was Loop without Do. So i put it
back in and am asking any ideas? Thanks Doug

Private Sub cmdArchive_Click()
Call MovePastRecords

End Sub


Private Const intDateColumn As Integer = 1

Public Sub MovePastRecords()
Dim wksCurrent As Worksheet
Dim wksPast As Workshe