I want to save activated worksheet at given folder path and want to save in tab with specific worksheet name using VBA macro

[sanju1988]

I want to save activated worksheet at given folder path and want to save in tab with specific worksheet name using VBA macro and want to delete activated worksheet again.as i am doing this for number of files and also i want to add wrap text =true and row height set 12.75 Tried below code

Code I tried

Set wb = Workbook.Add
Activeworkbook.SaveAs Filename : "G:\expected file name.xls",FileFormat:=xlOpenXMLWorkbook
ThisWorkbook.Sheets("template").Activate
ThisWorkbook.Sheets(Array(template")).Move Before:=Workbooks("template").Sheets(1)
Sheets(2).Delete
ActiveWorkbook.Save
Windows(Foldername to save)


Here my requirement is i want save activated worksheet which is template ,i want to save this template at "G:/folder1" with filename XYZ.xls and with tab name 'Region1'

and also want to print date from last monday to last sunday date in Cell B5 with format YYYYMMDD

 

[sanju1988]

i want to add wrap text =true and row height set 12.75 except 1st five rows
I want to print date from last monday to last sunday date in Cell B5 with format YYYYMMDD and i want to remove gridlines from sheet.