With ActiveWorkbook.Worksheets(shContent) Set rCell = .Range(sStartCell).Offset(iSht.Index - 1, 0)
Application.EnableEvents = False … Application.EnableEvents = True