Any gura can help?

[dfhao]

I defined a class and a module in my excel workbook. They are as the following:

Module
#

Dim X As New Class1
Sub test()
Set X.App = Application
Set X.Wb = ActiveWorkbook
ActiveWorkbook.Save
End Sub


Class Name: Class1

Public WithEvents App As Application
Public WithEvents Wb As Workbook

Private Sub Wb_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

ActiveWorkbook.Sheets.Add after:=Worksheets(ActiveWorkbook.Worksheets.Count)

End Sub

#


The problem is if you click "Save", a new sheet will be added. But if you run the module, the sheets.add line is executed but a new sheet is not added. I need the Activeworkbook.save line to activate the save event, instead of clicking the "Save" button from the menu bar. Any guru knows why and how to solve the problem? Thanks!

 

[Norie]

What is it you are actually trying to achieve?

 

[dfhao]

What I would like to do is to relate the above module to a pop up menu bar. When user clicks the menu bar, a message box will popup asking if the user would like to save the workbook before proceeding. If "yes" is clicked, the activateworkbook.save is executed and the beforesave event activated. The beforesave event will add a new sheet and record some coverted information from the existing sheets and then save the workbook. Thanks!

David

 

[Norie]

David

Perhaps I'm missing something but couldn't you just use the BeforeSave event for that?

Why the class?