Dave,

Would this look for the date in column G, row 3 and move amount i
column L to coulmn N? It isn't giving an error, nor is it working. An
suggestions?

Sub UserForm_initialize()
Dim myCell As Range
Dim myRng As Range
With Worksheets("Active Collection")
Set myRng = .Range("g3", .Cells(.Rows.Count, "G").End(xlUp))
For Each myCell In myRng.Cells
With myCell
If IsDate(.Value) Then
If .Value < Date - 30 Then
If .Cells(.Row, "M").Value = "" Then
.Cells(.Row, "M").Value = .Cells(.Row
"L").Value
.Cells(.Row, "L").ClearContents
End If
End If
End If
End With
Next myCell
End With
End Su

--
Message posted from http://www.ExcelForum.com