Help with run-time error
Hi, having some trouble here! Trying to search column B for some text and
then paste (values only) into the cell immediately below. Using the
following but clearly not working and my head is about to explode if I
continue to fumble for an answer. It's the last line that's causing me a
problem. Can anyone help please?
Thanks / Nick
ThisWorkbook.Sheets("Status Report").Select
Set rng = SH.Columns("B:B").Find(What:="Risk Description", _
After:=Range("B58"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
rng.Offset(1).PasteSpecial 'paste description column to status report
|