I tried:

Dim xlWs as Excel.Worksheet
Set xlWs = ThisWorkbook.Sheets(strSheetname)

With xlWs

    .Cells(target.row, lgDestColl, etc.

End With
I set all of the code between the With/End With statements and used .Cells and not just Cells. That did not work either.