I have a spreadsheet where my employees keep a list of their customers
I have a column on this spreadsheet has the customer's date of birth
What I am trying to do is copy the row to another sheet based on th
month of the birthday. Basically I have 13 sheets, 1 for the clien
list, and 1 for each month. Please help. I found something that i
similar, but don't know how to use a date range (code below)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim LastRow As Object
' Set your Copy To range here
Set LastRow = Sheets("Sheet2").Range("A65536").End(xlUp)
' Only look at single cell changes
' If Target.Count 1 Then Exit Sub
' Set your change range here
Set rng = Range("A:A")
' only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Set your condition here
If Target = "ABC" Then Target.EntireRow.Copy LastRow.Offset(1
0)
End Su

--
hawkins_c
-----------------------------------------------------------------------
hawkins_cm's Profile: http://www.excelforum.com/member.php...fo&userid=1681
View this thread: http://www.excelforum.com/showthread.php?threadid=32014