Use sheet tab to name a file

[cboz]

I want to replace MyName with the tab name of the active sheet in the following code. How is this done?

ActiveWorkbook.SaveAs "G:\Procurement\CXB\07 Vendor forecasts\" & MyName & Format(Date + 3, "yymmdd") & ".xls

 

[SkipVought]

Hi,

ActiveWorkbook.SaveAs "G:\Procurement\CXB\07 Vendor forecasts\" & activesheet.name & Format(Date + 3, "yymmdd") & ".xls"

Skip,

_{When a diminutive clarvoyant had disappeared from detention, headlines read...
Small Medium at Large}

 

[cboz]

Thanks.