Combinig before events on a workbook

[Rosing]

Hi

How do I combine several before events in ThisWorkbook?

I need to use all three

BeforeClose, BeforeSave & BeforeOpen

Thanks in anticipation

 

[VoG]

You don't combine them. You just include them one after the other (in any order) in the ThisWorkbook module.

It is Open not BeforeOpen.

 

[Rosing]

You don't combine them. You just include them one after the other (in any order) in the ThisWorkbook module.

It is Open not BeforeOpen.

Thanks

I receive an error message (Compile error) when I use this code in ThisWorkbook in vba

Private sub Workbook_Open ()
>code<
End sub

Private sub Workbook_BeforeSave ()
>code<
End sub

Private sub Workbook_BeforeClose ()
>code<
End sub

Do you know why?

Thnaks in anticipation

 

[VoG]

It must be something in your >code<

 

[Rosing]

I use this code
And it stops at Private Sub Workbook_BeforeClose when I save the file

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Log").Visible = True
Sheets("Log").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = Environ("username")
ActiveCell.Offset(0, 1).Select
Selection.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Log").Visible = xlVeryHidden
Sheets("Marketing budget").Select
Range("Table1[[#Headers],[Projekt]]").Select
End Sub

Private Sub Workbook_BeforeClose()
Sheets("Account").Select
Range("account[[#Headers],[Account]]").Select
End Sub

 

[VoG]

Maybe som4ething like

Range("A1").select instead of

Range("account[[#Headers],[Account]]").Select