Save All

  • Thread starter Thread starter BuckRabbit
  • Start date Start date
B

BuckRabbit

Hi all,

With regard to customizing toolbars in Excel 2002, is there anywhere I can create or grab a Save All command (with the purpose of
saving all open worksheets) so I can create a "Save All" icon for one of my toolbars?

Perhaps I would have to create this command thru VB, in which case I am screwed because I don't know squat about VB code ...lol,
but if someone would be kind enough to help me out with it I would be most appreciative.

Cheers
Buck
 
I'm wondering if you could add a PopUP Menu to the Workbook.Open code of your
Personal.xls and it would be available each time. You could also just add
it to your Personal.xls workbook to run at will.

You can try something like this. i know it could use more, but I don't
remember how to code part of it and don't have it here.

Sub SaveAll()

Dim WkBk As Workbook
'
For Each WkBk In Application.Workbooks
Debug.Print WkBk.Name, WkBk.Path
If WkBk.Path = "" Then
Debug.Print ("You'll need to select the path to save workbook "
& WkBk.Name)
'I know there's a way to code how to select a folder, but I
don't have it here.
Else
WkBk.Close savechanges:=True 'This closes and saves workbooks
that have previously been saved
End If


Next WkBk

End Sub

HTH,

Barb Reinhardt
 
Back
Top