Macro Error
 

Hello,
I needed some help with a macro that used to work, but for some reason
does not work anymore. The error that is displayed is: Compile error: Named
argument not found.

The macro is as follows:
Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular",
LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

The program stops at SearchFormat, any ideas. Any help would be appreciated.

Thanks,
A.S.

Macro Error
 

You aren't using those format commands. I believe they were
added/introduced in xl2002 or 2003, so take them out.


Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

--
Regards,
Tom Ogilvy


"A.S." wrote in message
...
Hello,
I needed some help with a macro that used to work, but for some reason
does not work anymore. The error that is displayed is: Compile error:
Named
argument not found.

The macro is as follows:
Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular",
LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

The program stops at SearchFormat, any ideas. Any help would be
appreciated.

Thanks,
A.S.

Macro Error
 

Hi Tom,
Thanks for the help. However, I now get a Compile error: Syntax error. Any
idea how to get rid of this?

"Tom Ogilvy" wrote:

You aren't using those format commands. I believe they were
added/introduced in xl2002 or 2003, so take them out.


Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

--
Regards,
Tom Ogilvy


"A.S." wrote in message
...
Hello,
I needed some help with a macro that used to work, but for some reason
does not work anymore. The error that is displayed is: Compile error:
Named
argument not found.

The macro is as follows:
Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular",
LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

The program stops at SearchFormat, any ideas. Any help would be
appreciated.

Thanks,
A.S.

Macro Error
 

Probably some problem you incurred in copying it from the email; word wrap
or some such. I have made it very narrow to increase the probability of
your success. It ran fine for me:

Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", _
Replacement:=" - Cellular", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
Cells.Replace What:=" - Cellularular", _
Replacement:=" - Cellular", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
Cells.Replace What:="Mobile", _
Replacement:=" - Cellular", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End Sub

--
Regards,
Tom Ogilvy

"A.S." wrote in message
...
Hi Tom,
Thanks for the help. However, I now get a Compile error: Syntax error.
Any
idea how to get rid of this?

"Tom Ogilvy" wrote:

You aren't using those format commands. I believe they were
added/introduced in xl2002 or 2003, so take them out.


Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular",
LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

--
Regards,
Tom Ogilvy


"A.S." wrote in message
...
Hello,
I needed some help with a macro that used to work, but for some
reason
does not work anymore. The error that is displayed is: Compile error:
Named
argument not found.

The macro is as follows:
Sub First_Macro_Rate_Sheet_Comparison()
'
' First_Macro_Rate_Sheet_Comparison Macro
' Macro recorded 3/4/2005 by Edits
'

'
Cells.Replace What:="Cell", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
_
ReplaceFormat:=False
Cells.Replace What:=" - Cellularular", Replacement:=" - Cellular",
LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="Mobile", Replacement:=" - Cellular",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
_
ReplaceFormat:=False
End Sub

The program stops at SearchFormat, any ideas. Any help would be
appreciated.

Thanks,
A.S.