VBA Question (Run Time Error 1004)?

[MichaelRSnow]

Any help with why I am getting the following run time error

'Run Time Error 1004'
Select method of range class failed

my code is

Private Sub CommandButton1_Click()
'In the availability column (G), change text Intermediary (MSO) to Intermediary without (MSO)'

Application.ScreenUpdating = False

Sheets("Sheet1").Select
Columns("G:G").Select
Selection.Replace What:="Intermediary (MSO)", Replacement:="Intermediary", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Application.ScreenUpdating = True
Range("A1").Select
End Sub

 

[Jonmo1]

Try not using Select to begin with...

Try

Private Sub CommandButton1_Click()
'In the availability column (G), change text Intermediary (MSO) to Intermediary without (MSO)'

Application.ScreenUpdating = False

Sheets("Sheet1").Columns("G:G").Replace What:="Intermediary (MSO)", Replacement:="Intermediary", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Application.ScreenUpdating = True
End Sub

<!-- / message -->

Hope that helps.

 

[MichaelRSnow]

Brilliant, works like a charm. Thank you