
Вот такой код будь, он неладен
При пошаговой отработке на этой строке error. Ежели заремить эту строку, то макрос работает.
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Мож кто подскажет плизззз!