Clear a "moving" range offset from Target
try:
Target.Offset(, 1).Resize(tRowCount - 1, 1).ClearContents
Regards
Claus B.
Seems I can't get a tRowCount value, that line errors out.
tRowCount = Target.Offset(, 1).Cells(Rows.Count).End(xlUp).Row
Target.Offset(, 1).Resize(tRowCount - 1, 1).ClearContents
|