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