Move sheet and save as cell value

Hello all, great forums!

I would like to move a sheet from a two sheet workbook, to a new workbook and save the new workbook with a file name from three cell values.

Stuie had helped me yesterday, and this is what I have so far

Private Sub copySheet()
Dim fn As String
fn = Range("C8").Value & Range("A250").Value & Range("G11").Value & ".xls"
Sheets("Sheet 1").Copy

Activeworkbook.SaveAs FileName:= _
    C:\Folderr\"& fn
End Sub

I am getting a syntax error on the last line however, any help would be greatly appreciated.