hi

i got a VBA prog. to open excel. but, when the prog. open excel spreadsheet, there is an error. "Can't open pivot table soubrce file..." so, i tried to supress the error message via the code. but, VB stops at the Open() statement, and wait for me to respond to the message before it continues. and, i really want VB ignores the error, and continues

the oXL.DisplayAlerts = False does supress the error message IF i press F8 in VB editor to step through the code. but, if i set a breakpoint and hit F5 to jump over 5 lines of code. then, the error message comes up again

does anyone has any idea on that

thank you

will lam

Set oXL = New Excel.Applicatio

'wla
oXL.DisplayAlerts = Fals

TempFileString = sFileStrin
sTempTicker = Left(sFileString, Len(sFileString) - 4
On Error GoTo bai


TempFileString = sfilePath & "\" & TempFileStrin
Set owb = oXL.Workbooks.Open(FileName:=TempFileString, UpdateLinks:=False, ReadOnly:=False, ignoreReadOnlyRecommended:=True


Set oSht = owb.Worksheets.Item("Cover Page"

sAnalystEmail = Trim(oSht.Cells(9, 4).Value
If Not InStr(sAnalystEmail, "@") 0 The
PrepExcelFile = CStr(GetAnalystIDFromTicker(sTempTicker)
If PrepExcelFile = "" Then GoTo NoAnalys
Els
PrepExcelFile = GetAnalystIDFromDB(sAnalystEmail
If PrepExcelFile = "" Then GoTo NoAnalys
End I

For Each oWs In owb.Worksheet
oWs.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=Tru
Nex

For Each oChart In owb.Chart
oChart.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=Tru
Nex


- breakpoint he bProtected = ProtectedCheck(owb)


.. .