Save file based on active cell

ActiveWorkbook.SaveAs Filename:=Range("B1").Value

The above formula lets me save a workbook to a specific cell but how can I get this to save to the current active cell?

Sorry for the dumb questions but you all have been very helpful. thanks

thank you for the answer to saving a workbook from an active cell but now it doesn't seem to work when I try to use the same phrase for creating another sheet within the workbook...see below.....the bold phrase works for a specific cell but not the active cell

Keyboard Shortcut: Ctrl+n

Dim wSht As Worksheet
Dim shtName As String
shtName = Sheets(1).Range("B2")
For Each wSht In Worksheets
If wSht.Name = shtName Then
MsgBox "Sheet already exists...Make necessary " & _
"corrections and try again."
Exit Sub
End If
Next wSht
Sheets(1).Copy before:=Sheets(1)
Sheets(1).Name = shtName
Sheets(shtName).Move After:=Sheets(Sheets.Count)
End Sub