Workbook connections count issue

[mateoc15]

I have the following code. I want to check for any ODBC or other connections and ask the user if they want to refresh when the file opens. In the debugging MsgBoxes that I have below the ThisWorkbook.Connections.Count is 0. The Len(Trim(.....)) never shows up. I then get the "This workbook contains" MsgBox. My guess is that if there are truly no connections then Connections(1) doesn't exist and throws an exception. However, if that's the case, how is it making it into the If block? ThisWorkbook.Connections.Count is 0. We've already established that through the first MsgBox. Confused.

Thanks!

Please Login or Register  to view this content.

[MarvinP]

Hi mateoc15,

I think you get into your If section of code because you have an "On Error Resume Next" line.
The Connections(1) part gives the error and it simply continues onto the next line.

[mateoc15]

Ok, so I've read that the On Error Resume Next is dangerous and clearly it has screwed me here. Maybe someone can explain the best way to handle this exception?

In every other programming language I've ever used if the first statement evaluates to false in an "And" statement then the second one is never even checked (thus no exception thrown). If, as in my example, the count is 0 then shouldn't that entire If block be skipped or does VBA evaluate all of the If conditions and THEN make the decision?