That line should probably be something like this:
With xlSh.range(BeginDate(rsLeave![Start Date], rownum), FinDate (rsLeave![End Date], rownum))
.Interior.ColorIndex = 4
End With
'or cleaner
startRange = BeginDate rsLeave![Start Date], rownum
endRange = FinDate rsLeave![End Date]...