However I keep getting the error "Subscipt out of range" unsure whats going wrong? My code jumps back and forth from the source and the destination book, but the source variable is consistent amounst the entire module. I am worried it keeps changing as it jumps?

Property Get wsSrc() As Worksheet
    Set wsSrc = ActiveWorkbook.Worksheets("Sheet1")
End Property