Save file as specified cell

Let me first start by saying I am a complete amateur when it comes to writing macros. I have recorded a few, but mostly have just gathered what I have seen posted on other forums to compile what I hoped would work. It hasn't!

Specifically I want my operators to input today's date into a desired cell as specified, following the input I want the file to saveas the input date in a specified folder. Below is my best attempt to accomplish this task, I appreciate any help you can provide.

___________

Private Sub SaveAs(ByVal target As Range)
Dim cell As Range
Dim fPath As String
Dim fName As String

Application.EnableEvents = False

fName = Range("L1").Text
fPath = Range("L1").Text
If Right(fPath, 1) <> "/" Then
fPath = fPath & "/" & Format([L1], "MMMMYYYY") & "/"
ThisWorkbook.SaveAs (fPath & fName & ".xlsm")

End If
Next cell
Application.EnableEvents = True

End Sub

Yes, when I click on a button with a macro that saves the file as today's date.