Is it possible to save only a specific sheet within a workbook

  • Thread starter Thread starter ali1h
  • Start date Start date
hi
xl does not have this feature built in. but it is possible. as an ex-lotus
user, i got use to one of it's features call save range. so i wrote a macro
for that in excel. I have the macro in my personal file in the xl start
folder so that it will be available for all files and runit from a custom
menu item.
Sub mac1SaveRange()

'Macro written by FSt1 4/27/00

Dim cnt As Long
Dim cell As Range


ActiveSheet.UsedRange.Select
If Selection.Cells.Count = 1 Then
If MsgBox("You have selected only one cell. Continue?????", vbYesNo,
"Warning") = vbNo Then
Exit Sub
End If
End If
cnt = 0
For Each cell In Selection
If Not IsEmpty(cell) Then
cnt = cnt + 1
End If
Next
If cnt = 0 Then
If MsgBox("There is no data in the selected range. Continue?!?!?!?!?",
vbYesNo, "Warning") = vbNo Then
Exit Sub
End If
End If
Selection.Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
Application.Dialogs(xlDialogSaveAs).Show
End Sub


Post back if you need help setting it up.

regards
FSt1
 
Hi


How do you copy the sheet now? Simply copy-paste, or do you copy the sheet
(right-click on sheet tab>Move or copy>To book: (new book)>check 'Create a
copy'>OK)

Or I'm completly missing your point?
 
"Move or Copy Sheet" will let you move or copy to a new workbook, so you can
save there.
 
"Move or Copy Sheet" will let you move or copy to a new workbook, so you can
save there.
Click to expand...

You can always use [Ctrl] + drag to drop the sheet tab into either
another worksheet or that gray area when your sheets are not maximized.
 
Back
Top