Keep getting run time error

[superchew]

Hi I keep getting a run time error stating that object doesn't support this property or method. The code is suppose to save to a specific folder. works on my others but not this one. Code below.

   sFile = .Range("c1") & " thru " & .Range("C3") & ".xlsm"
End With
ActiveWorkbook.SaveAs Filename:="U:\PRODUCTION\C shift\Saved Safe Card Count\" & _
Replace(sFile, "/", "-"), FileFormat:=52