On Jun 20, 2:13 pm, "NickHK" wrote:
Well you know your code is the culprit. However, apart from the fact that it
contains an If..Then block, we have no idea of what you are doing.

NickHK

"RobH"
egroups.com...



On Jun 20, 10:08 am, Mike H wrote:
You could start by disabling the macro to see if that solves the problem.

Mike

"RobH" wrote:
Normally, when Excel is opened you get a blank workbook called Book1.
I have created a macro which sits in the XLStart directory and auto
runs whenever a workbook or excel itself is opened. Following this
macro being added, I no longer get a blank workbook automatically on
opening Excel, how do I change this back?- Hide quoted text -

- Show quoted text -

Removing the macro does solve the problem, but I obviously need the
macro to be there.- Hide quoted text -

- Show quoted text -

I have the following in my spreadsheet

I have the following in a Class Module:

Public WithEvents app As Application
Private Sub app_WorkbookOpen(ByVal wb As Workbook)

If wb.Windows(1).Visible = True Then
Call check_cobt
End If

End Sub

I have the following in an Excel Object:

Private Sub Workbook_Open()

Set appclass.app = Application

End Sub

I also have a module with a macro called check_cobt. This starts and
finishes as follows:

Public appclass As New CoBTClass
Sub check_cobt()
'
startandend = ActiveCell.Address
If Left(Range("B1"), 14) = "ZZCOBTZZCOBTZZ" Then
'
Range("A1").Select
Selection.EntireRow.Insert
Selection.Font.Size = 24
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
ActiveCell = "Report generating, please wait..."