software

I want to be able to save the excel workbook file name with each worksheet
within the workbook per tab name respectively, can this be done?

Sub SaveAsSheets()
Dim oWS As Worksheet

For Each oWS In ActiveWorkbook.Worksheets
oWS.Copy
ActiveWorkbook.SaveAs oWS.Name
Next oWS
End Sub--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

quot;Olga Cookquot; lt;Olga gt; wrote in message
...
gt; I want to be able to save the excel workbook file name with each worksheet
gt; within the workbook per tab name respectively, can this be done?
easy.got the answer. simply save as usual except add the cell number you are
in, i.e., =cell(quot;filenamequot;,a28) will save the tab(s) in the workbook as
respectively named worksheets within the workbook. Thank you Aida for your
help!

quot;Olga Cookquot; wrote:

gt; I want to be able to save the excel workbook file name with each worksheet
gt; within the workbook per tab name respectively, can this be done?