How to get the Workbook name from a variable sheet name

[Chandana_Gadugu]

Hi,

I have an Active sheet which is

MySName = ActiveSheet.Name

Here MySName gives the active sheet name.

I require 1 more variable to take this MySName and assign it to a workbook name and make it is as .xls as i required this workbook name to be used later to close the workbook

For ex:
MySName = ActiveSheet.Name

this gives MySName =aaaa

Now i want like MyWBook = aaaa.xls
But aaaa i want it from variable as we cannot hardcode it.

Thanks In Advance,
Chandana.G

 

[AlphaFrog]

The workbook is named when you save it. You could use .SaveAs to give it the same name as the sheet.

Dim MySName As String, strPath As String

MySName = ActiveSheet.Name
strPath = "C:\MyFolder\"
ActiveWorkbook.SaveAs Filename:=strPath & MySName & ".xls"