Vb code executing and switching tabs.. weird??

[alokie]

Hello all, I am still new to this, but I have some code below that is supposed to update imputed on the "Updates" tab and update the data on the "Pricing Page". This is updating a specified range but when executed it is switching from the Updates tab to the Pricing page tab. Any ideas on why?

Sub ReplacePremier()
    Dim wks         As Worksheet
    Dim vWhat       As Variant
    Dim vRepl       As Variant
     
    vWhat = Worksheets("Updates").Range("A7").Value
    vRepl = Worksheets("Updates").Range("C7").Value
    Worksheets("Pricing Page").Select
    Set target = Range("C7:C50")
     
    Sheets("Pricing Page").Range("C7:C50").Replace What:=vWhat, _
    Replacement:=vRepl, _
    LookAt:=xlPart, _
    SearchOrder:=xlByRows, _
    MatchCase:=False, _
    SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

 

[pboltonchina]

Because that's what the code is telling it to do. Try this

Sub ReplacePremier()
    Dim wks         As Worksheet
    Dim vWhat       As Variant
    Dim vRepl       As Variant
   Application.ScreenUpdating = False  
    vWhat = Worksheets("Updates").Range("A7").Value
    vRepl = Worksheets("Updates").Range("C7").Value
    Worksheets("Pricing Page").Select
    Set target = Range("C7:C50")
     
    Sheets("Pricing Page").Range("C7:C50").Replace What:=vWhat, _
    Replacement:=vRepl, _
    LookAt:=xlPart, _
    SearchOrder:=xlByRows, _
    MatchCase:=False, _
    SearchFormat:=False, _
    ReplaceFormat:=False
    Worksheets("Updates").Select
    Application.ScreenUpdating = True  
End Sub

 

[Norie]

You should be able to do this without selecting.

Option Explicit
Sub ReplacePremier()
Dim wks As Worksheet
Dim target As Range
Dim vWhat As Variant
Dim vRepl As Variant
    vWhat = Worksheets("Updates").Range("A7").Value
    vRepl = Worksheets("Updates").Range("C7").Value
    Set target = Worksheets("Pricing Page").Range("C7:C50")
    target.Replace What:=vWhat, _
                   Replacement:=vRepl, _
                   LookAt:=xlPart, _
                   SearchOrder:=xlByRows, _
                   MatchCase:=False, _
                   SearchFormat:=False, _
                   ReplaceFormat:=False
End Sub