Macro to search through dates and display results based on user input

Hi Alan668,

Try this - it's untested:

Sub NiceUser(): Dim r As Range, ws As Worksheet, M As Date, Y As Date, C As Range, d As Long
M = Range("A1"): Y = Range("A2")                    'You'll need to adjust these assignments
d = 2: Set ws = Worksheets(Sheet1): Set C = ws.Range("C2:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)
For Each r In C
If Month(r) = M And Year(r) = Y Then
Range("A" & r.Row & ":D" & r.Row).Copy Cells(d, 1)
d = d + 1: Next: End Sub