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