Sheet Name = a Cell

[Jarrettm]

Trying to get the sheet name to be the cell C1

Sub New_Shooter()
'
' New_Shooter Macro
'

'
    Sheets("Blank Form").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=c1
    ActiveSheet.Paste
End Sub