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