Hi - I have a basic workbook that houses our weekly staff meeting agenda items. it plans out months in advance. I am building a macro to automatically copy today's schedule and paste it into a pre-made powerpoint. I had the IF-IfElse-Else macro working, but it has stopped. Can you spot an error?
Sub CreateStaffTemplate()
If "B4" = "C20" Then
Worksheets("Feb").Range("B6:D15").Copy _
ElseIf "F4" = "C20" Then
Worksheets("Feb").Range("F6:h15").Copy _
ElseIf "J4" = "C20" Then
Worksheets("Feb").Range("J6:L15").Copy _
ElseIf "N4" = "C20" Then
Worksheets("Feb").Range("N6:P15").Copy _
Else
End If
End Sub
Bookmarks