You could use this macro:
Sub Macro1()
Dim r As Long, lastRow As Long
Dim myMonth As String, found As Range
Dim mySh As Worksheet, destSh As Worksheet
Set mySh = ThisWorkbook.Sheets("sheet1")
lastRow = mySh.Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To lastRow
myMonth = MonthName(Month(mySh.Cells(r, 1)))
Set destSh = ThisWorkbook.Sheets(myMonth)
Set found = destSh.Range("1:1").Find(mySh.Cells(r, 1))
If Not found Is Nothing Then
found.Offset(1) = "H"
End If
Set destSh = Nothing
Next r
Set mySh = Nothing
End Sub
Regards,
Antonio
LinkBack URL
About LinkBacks
lilsnoop 
Register To Reply
Bookmarks