I have a problem with having 2 macros in the same ThisWorksheet code area. I
have a macro that logs who opened my workbook and one that on open selects
the first sheet i specified. My problem is it only opens the first macro.
When i change the second macro to Workbook_Open it says i can't have 2 of the
same arguements. Is there a way to write this so they both open with no
conflicts?
Option Explicit
Sub Workbook_Open()
Sheets("Front Page").Select
End Sub
Sub Auto_Open()
' Use as part of an Auto_Open macro
' Change both occurances of C:\myExcelBackups to the desired
' path location for the File Use Log -i.e. a network drive?
' A text file will show the name and time of everyone who
' opens the workbook.
Application.DisplayAlerts = False
Dim FileUser As String
Dim FileUserDocFILE As String
FileUser = ActiveWorkbook.Name
On Error Resume Next
MkDir "MYWORKBOOK"
FileUserDocFILE = "MYWORKBOOK" & FileUser & " Log.txt"
On Error GoTo 0
Open FileUserDocFILE For Append As #1
Print #1, Application.UserName & Environ("username") & " Opened " &
ActiveWorkbook.Name & " at " & Now
Close #1
Application.DisplayAlerts = True
End Sub
Is there a reason that you don't just call the other macro at the end
of the first one? You can type the name of the second macro before the
End Sub line.
> I have a problem with having 2 macros in the same ThisWorksheet code area. I
> have a macro that logs who opened my workbook and one that on open selects
[quoted text clipped - 32 lines]
> Application.DisplayAlerts = True
> End Sub
Travis - 06 May 2008 12:46 GMT
Thanks for the help. I'm still learning the VB thing, but i'll get it
straight.
> Is there a reason that you don't just call the other macro at the end
> of the first one? You can type the name of the second macro before the
[quoted text clipped - 36 lines]
> > Application.DisplayAlerts = True
> > End Sub