runtime error 91 in Personal.xls - no clue!

  • Thread starter Dominique Schroeder
  • Start date
D

Dominique Schroeder

I have inserted the code below in PERSONAL.XLS
This works if Excel is launched first, then I launch another template.

However I get an error if I launch another template first, no matter what
other template it is and whether it has code in it or not.

I get a runtime error 91: Object variable or with block variable not set.


Private Sub Workbook_Open()
Call LaunchForecast
End Sub

Public Sub LaunchForecast()
'
Dim strWorkBookname As String
Dim oWorkb As Object
Set oWorkb = Application.ActiveWorkbook

strWorkBookname = oWorkb.Name
DoEvents

If Right(oWorkb.Name, 3) = "CSV" Then
MsgBox "hold it"
Application.ScreenUpdating = False

Application.Workbooks.Add(Template:="\\Wmc-srv-2\Templates\PM
Templates\dmsForecast.xlt").RunAutoMacros Which:=xlAutoOpen
End If
End Sub
 
Top