Hi

I have a macro that i use to look for a name and when it finds the name it will cut the row and paste in another sheet.

Now i want to do it with a date i.e. >20/08/2009. Here is my code:
Sub UK()
'
Sheets("UK2").Select
[p2].Select
Do Until ActiveCell = ""
If ActiveCell = ">20 Aug 2009" Then
ActiveCell.EntireRow.Copy
Sheets("UK SEPT").Select
[A65536].Select
Selection.End(xlUp).Select
If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select

ActiveSheet.Paste
Sheets("UK2").Select
Selection.EntireRow.Delete

ActiveCell.Offset(0, 0).Select
Else
ActiveCell.Offset(1, 0).Select
   End If
Loop
[a1].Select

End Sub