Save workbook via Command Button????

I have a workbook with a command button and need to save the workbook with a date as the file name. The date is in cell "A5" and the file I need to save it to is "Midtown Farm". Can anyone help please???

Do you mean you have a file you want to save called 'Midtown Farm' and
you want to append the date in cell 'A5' to the end of the filename?
If so and the onClick event of the command button triggers the save
operation then you could do something like this:

Private Sub CommandButton1_Click()

Dim sDate as string

sDate = Format(Activesheet.Range("A5").Value, "yyyymmdd")

Thisworkbook.SaveAs "Midtown Farm_" & sDate

End Sub

This works fine but What I want it to do is save the workbook in a folder call Midtown Farm in My documents, is this possible????

Sorry I misunderstood. In which case:

Thisworkbook.SaveAs "C:\My Documents\Midtown Farm\" & sDate

A note of caution however: 'My Documents' is not always where you think
it is. If you are on a standalone desktop then it is probably where
I've indicated, if you are on a corporate network then it may well be
on a network drive. To resolve the location open Explorer and
right-click->Properties on 'My Documents' the 'Target' tab will show
you the full path to the folder and then you just stick that in the
SaveAs command as I've shown.

HTH