Saving Individual Worksheets
Hi,
i have used this code, but it's not working for me at the mo,?-why? it
has before. The idea is simple, i copy the page to a new workbook and
sane it with a file name form the input box. I am doing some work to
day which might improve on this, if what i do is any good i'll post
back.
so this might give you a few ideas?
Sub CopyAndSaveSheet()
'
' CopyAndSaveSheet Macro
' wrote for luck by ross
'
' Keyboard Shortcut: Ctrl+Shift+T
'
On Error GoTo oh****e
A = "D:\Documents and Settings\702292505\My Documents\"
B = InputBox("Whats the name then pal?? eh. yeah you gimp",
"SheetSaver .::by::. RamCo Ltd.")
ActiveSheet.Copy
sName = ActiveSheet.Name
Workbooks.Add
Sheets(1).Name = sName
Sheets(sName).Activate
Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SaveAs FileName:=A & B, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True
ActiveWorkbook.Close
Exit Sub
oh****e:
Exit Sub
End Sub
good luck
ross
|