This is the basic code which you will need to adapt as required :-


Code
-------------------
Sub test()
Dim NextMonth As Integer
Dim FromRow As Long
Dim ToRow As Long
'--------------------
NextMonth = Month(Date) + 1
ToRow = 1
'--
For FromRow = 1 To 1000
If Month(ActiveSheet.Cells(FromRow, 1).Value) = NextMonth Then
Worksheets("Sheet1").Cells(ToRow, 1).Value = _
ActiveSheet.Cells(FromRow, 1).Value
ToRow = ToRow + 1
End If
Next
MsgBox ("Done.")
End Sub

-------------------


--
Message posted from http://www.ExcelForum.com