Suppress errors

[tlindeman]

I would like to suppress errors in VBA when a macro runs. I have a a list of tickers where I download the financials, however there are two tickers it can not find unless i run another macro. I am fine with that, I just don't want the user to see any errors so I do not get a bunch of questions. How do I suppress all errors? Here is a snippet of my code.

If Range("A232").Value = " " Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.google.com/finance?q=" & Range("A232").Value & "&fstype=ii", Destination:=Range("B232"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery = False

Thank You
Tony

 

[Smitty]

You can use Application.DisplayAlerts = False at the beginning of your code, just make sure to set it back to True at the end. You might also want to turn off ScreenUpdating.

HTH,