View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bernie Deitrick Bernie Deitrick is offline
external usenet poster
 
Posts: 5,441
Default 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