SOLVED!!!!SAVE SHEETS WITH VALUES

[ROBINSYN]

I have a template and want to create a macro that will save 2 sheets to a new file using the current name of the vendor selected and the po number. Let's say cell k8 & g10. I do not need the functions in new file only the format of the sheet and values choosen. Is this possible?
This message was edited by ROBINSYN on 2002-11-17 18:56

 

[royUK]

Try this :
Sub SaveForm()
'
' SaveForm Macro
' Macro recorded 12/10/2002 by Roy Cox
'

'
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1:K13").Select
Selection.Copy
Workbooks.Open Filename:="C:WINDOWSDesktopDbase.xls"
Sheets("Sheet1").Select
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub

Just a quick attempt but it seems to work

 

[ROBINSYN]

I tried this and it worked once but on second attempt claims file already exists.
i will eventually have 500 plus workbooks and they all need their unique identifiable name automatically assigned. Is it possible to do this while maintaining the original sheets integrity.