Error 400 - Search and Replace

This code "should" search the "pricing page" tabe and updates cells C7 to C50 workbook. Instead I am getting an error "400" Ideas?

Sub ReplacePremier()
Dim wks As Worksheet
Dim vWhat As Variant
Dim vRepl As Variant

vWhat = Worksheets("Updates").Range("A6").Value
vRepl = Worksheets("Updates").Range("C6").Value

Set target = Worksheets("Pricing Page").Range(Range("C7"), Range("C50").End(xlUp))

For Each wks In Worksheets
wks.Cells.Replace What:=vWhat, _
Replacement:=vRepl, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Next wks
End Sub

I can't explain but you have to first select the worksheet then set the range as I did in the code below. I'm not sure at all this code will do what you want but you'll at least be able to test it.
Good luck
Pierre

Sub ReplacePremier()
Dim wks As Worksheet
Dim vWhat As Variant
Dim vRepl As Variant

vWhat = Worksheets("Updates").Range("A6").Value
vRepl = Worksheets("Updates").Range("C6").Value
Worksheets("Pricing Page").Select
Set target = Range("C7", Cells(Rows.Count, 3).End(xlUp))

For Each wks In Worksheets
wks.Cells.Replace What:=vWhat, _
Replacement:=vRepl, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Next wks
End Sub

The code did remove the error, but now updated every item with the same value.