No dices donde te da el error, pero supongo que será en esta linea:
Código vb:
Ver originalCells.Find(What:=cadena, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
tienes que poner:
Código vb:
Ver originalSet RangeObj = Cells.Find(What:=cadena, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If RangeObj Is Nothing Then MsgBox "Not Found" Else RangeObj.Activate