Need a save as macro
 

I have a workbook. WKSHT one is a list of clients. WKSHT two is
generic cover sheet. I have a cell on WKSHT 2 that equals the clien
name on WKSHT one. I need a macro that will copy and paste each clien
name and save it as something different each time

--
mohagany1
-----------------------------------------------------------------------
mohagany19's Profile: http://www.excelforum.com/member.php...fo&userid=1324
View this thread: http://www.excelforum.com/showthread.php?threadid=39866

Need a save as macro
 

mohagany19,

If your names are in A1:A100 of WKSHT one, and need to be put into WKSHT two cell A1 prior to
exporting WKSHT two:

Sub mohagany19()
Dim myCell As Range

For Each myCell In Worksheets("WKSHT one").Range("A1:A100")
Worksheets("WKSHT two").Range("A1").Value = myCell.Value
Application.CalculateFull
Sheets("WKSHT two").Copy
ActiveWorkbook.SaveAs myCell.Value & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Next myCell
End Sub

--
HTH,
Bernie
MS Excel MVP


"mohagany19" wrote in message
...

I have a workbook. WKSHT one is a list of clients. WKSHT two is a
generic cover sheet. I have a cell on WKSHT 2 that equals the client
name on WKSHT one. I need a macro that will copy and paste each client
name and save it as something different each time.


--
mohagany19
------------------------------------------------------------------------
mohagany19's Profile: http://www.excelforum.com/member.php...o&userid=13248
View this thread: http://www.excelforum.com/showthread...hreadid=398662