Macro for Save As a pre-determined range of cells, freezing drop down box and date

[MonseigneurB]

Hi,

I am starting out with VBA and have a rather specific problem.
I have created a button that runs the following macro:

Public Sub SaveAs()
ThisFile = Range("B16").Value & " " & Range("A7").Value
ActiveSheet.SaveAs Filename:=ThisFile
End Sub


I want to develop it further so that instead of saving the whole of the active sheet, it would save part of it (excluding the Macro Button, basically), whilst also freezing things like drop down boxes and =today(). So that when the new file could be opened without changing the date, etc.

The purpose of this is to generate new files, whilst keeping the main one as a Template with drop down boxes, automatic date and macro button. And anything else I stick in there to make information entry simpler.

Hope this is clear enough.
Thank you in advance,

Best,

Ana