Help. I'm fairly new to VBA and can not figure what the problem is.

The following code gives me the run-time error '1004'.


ThisWorkbook.Sheets("Next").Activate

' Find and remove "(Query 1 with OBNatAc5)" in headers
Rows("1:1").Select
Selection.Replace What:="(Query 1 with OBNatAc5)", Replacement:="",
_
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False


--
pltang
------------------------------------------------------------------------
pltang's Profile: http://www.excelforum.com/member.php...o&userid=36552
View this thread: http://www.excelforum.com/showthread...hreadid=563042