Try this:

Private Sub CommandButton1_Click()

Dim sFileName As Variant
sFileName = Worksheets("Sheet1").Range("A1")
'sFileName needs to include the path
'you can add it if necessary with the following
sFileName = "C:\temp\" & sFileName

ActiveWorkbook.SaveAs (sFileName)

End Sub