or try it without event macro:

Sub Col_A()
Dim lngStart As Long
Dim lngEnd As Long

With Sheets("Sheet2")
lngStart = .Range("A1").End(xlDown).Row
lngEnd = .Cells(Rows.Count, 1).End(xlUp).Row
.Range(.Cells(lngStart, 1), .Cells(lngEnd, 1)).Cut .Cells(lngStart -
1, 1)
End With

If lngStart - 1 = 1 Then MsgBox "A1 = " & [A1]

End Sub



Regards
Claus B.


Oh yeah. That is nice. Does a great job.

Thanks.

I've got one really goofy project going, have to take it a step at a time so will probably have some more questions.

Howard