Clear a "moving" range offset from Target
Hi Howard,
Am Thu, 22 Jan 2015 08:39:37 -0800 (PST) schrieb L. Howard:
Seems I can't get a tRowCount value, that line errors out.
for me this works fine:
tColumn = Target.Offset(, 1).Column
MsgBox tColumn
tRowCount = Cells(Rows.Count, tColumn).End(xlUp).Row
MsgBox tRowCount
If tRowCount 1 Then _
Target.Offset(, 1).Resize(tRowCount - 1, 1).Select '.ClearContents
Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
|