MS Project VBA Calendar question

[joebloggs]

I got this code below which populates the Standard calendar with public holidays. Can anyone point my in the right direct to do the same onto a resources calendar.

Example resource calendar name = "Joe Bloggs"

here is the code I've got working.

Sub Create_New_Exceptions()

Dim e As Exception
Dim cal As Calendar
Dim CalName As String

CalName = ActiveProject.Calendar.Name

ActiveProject.BaseCalendars(CalName).Exceptions.Add Type:=1, Start:="1/01/2020", Finish:="1/01/2020", Name:="New Year's Day"
'copy above to insert more public holidays

End Sub

thanks in advance

 

[joebloggs]

if anyone is looking for the answer, I received a response here Insert exceptions into Resource Calendar