Add this macro to your workbook in a standard code module, and save as a .xlsm file:
Sub AddHolidays()
Dim rngC As Range
Dim W As Worksheet
Dim strM As String
Dim rngF As Range
Set W = ThisWorkbook.Worksheets("Holidays")
For Each rngC In W.Range("B2:C" & W.Cells(W.Rows.Count, "C").End(xlUp).Row)
strM = UCase(Format(rngC.Value, "MMMM"))
With Worksheets(strM & IIf(rngC.Column = 3, " (2)", ""))
Set rngF = .Cells.Find(Day(rngC.Value), LookIn:=xlValues, lookat:=xlWhole)
If Not rngF Is Nothing Then
rngF.Offset(10).Value = W.Range("A" & rngC.Row).Value
End If
End With
Next rngC
End Sub
LinkBack URL
About LinkBacks
Ajhimm 
Register To Reply
Bookmarks