Marci,

The following macro will copy all entries on a sheet from the month of
January to a newly created sheet

Sub onlymonth()
sheetadded = False
For Each cl In ActiveSheet.UsedRange.Cells
If Month(cl.Value) = 1 Then
'Add a sheet
If sheetadded = False Then
Set shtnew = Sheets.Add
sheetadded = True
End If

Set shtrng = shtnew.Cells(rowcounter + 1, 1)
rowcounter = rowcounter + 1

shtrng.Value = cl.Value

End If
Next


End Sub

http://ForPicks.com

"Marci" wrote:

Can someone please tell me how I can filter the following data to show me
only specific months. For example, I want to find all data for the month of
Jan. Thank You.

Date
Jan-01
Feb-02
Apr-04
Jan-03
Jan-02