Run-time error '1004' VBA Excel 2003

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

What version of excel are you using?

If you're using xl97 and running the code from a command button placed on a
worksheet, then change that command button's .takefocusonclick property to
false.

=====
if your code is behind a worksheet, try not to do the selecting:

thisworkbook.sheets("next").Rows("1:1").Replace _
What:="(Query 1 with OBNatAc5)", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False



pltang wrote:
>
> 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

--

Dave Peterson