ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Macro Works but not in Debug Step mode (https://www.excelbanter.com/excel-programming/351932-macro-works-but-not-debug-step-mode.html)

Bob Smedley[_2_]

Macro Works but not in Debug Step mode
 
When trying to debug some of my code in step mode I get to this particular
line and it just stops.

ActiveWorkbook.Worksheets("StatusData").Select
On Error Resume Next
strTest = Range("Vision").Text <<<< stops on this line

If (Err.Number < 0) Or (strTest = "FALSE") Then


The error object is not filled, nothing. It acts as is the statement was
"End".

I've also tried it with "strTest =
Worksheets("StatusData").Range("Vision").Text" but does the same thing.

strTest is Dim'd as a string.

The range "Vision" that I am looking for does not exist (that's why I'm
doing in line error checking).

Any ideas why it would just stop without any notification of why in step
mode but work properly when run normally?

thanks




Chip Pearson

Macro Works but not in Debug Step mode
 
There's no reason this should happen. I would run the code
through Rob Bovey's Code Cleaner to clean out unnecessary code
that VBA keeps around. See
http://www.appspro.com/Utilities/CodeCleaner.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Bob Smedley" wrote in
message ...
When trying to debug some of my code in step mode I get to this
particular
line and it just stops.

ActiveWorkbook.Worksheets("StatusData").Select
On Error Resume Next
strTest = Range("Vision").Text <<<< stops on this line

If (Err.Number < 0) Or (strTest = "FALSE") Then


The error object is not filled, nothing. It acts as is the
statement was
"End".

I've also tried it with "strTest =
Worksheets("StatusData").Range("Vision").Text" but does the
same thing.

strTest is Dim'd as a string.

The range "Vision" that I am looking for does not exist (that's
why I'm
doing in line error checking).

Any ideas why it would just stop without any notification of
why in step
mode but work properly when run normally?

thanks






Kevin B

Macro Works but not in Debug Step mode
 

You could put a On error statement at the top of the macro

On Error goto Err_Handler

And then, following your code you could place an error routine that looks
something like

Err_Handler:

If Err.Number 0 Then
If Err.Number = 1004 Then
strVal = "Range Not Found"
Err.Clear
Resume Next
End If
Else
msgbox "Error Number: " & Err.Number & vbcrlf & _
"Description: " & Err.Description
End If

--
Kevin Backmann


"Bob Smedley" wrote:

When trying to debug some of my code in step mode I get to this particular
line and it just stops.

ActiveWorkbook.Worksheets("StatusData").Select
On Error Resume Next
strTest = Range("Vision").Text <<<< stops on this line

If (Err.Number < 0) Or (strTest = "FALSE") Then


The error object is not filled, nothing. It acts as is the statement was
"End".

I've also tried it with "strTest =
Worksheets("StatusData").Range("Vision").Text" but does the same thing.

strTest is Dim'd as a string.

The range "Vision" that I am looking for does not exist (that's why I'm
doing in line error checking).

Any ideas why it would just stop without any notification of why in step
mode but work properly when run normally?

thanks





Bob Smedley[_2_]

Macro Works but not in Debug Step mode
 
thanks for the suggestion. I cleaned the project with the neat app and it
still just stops at that line.


"Chip Pearson" wrote in message
...
There's no reason this should happen. I would run the code
through Rob Bovey's Code Cleaner to clean out unnecessary code
that VBA keeps around. See
http://www.appspro.com/Utilities/CodeCleaner.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Bob Smedley" wrote in
message ...
When trying to debug some of my code in step mode I get to this
particular
line and it just stops.

ActiveWorkbook.Worksheets("StatusData").Select
On Error Resume Next
strTest = Range("Vision").Text <<<< stops on this line

If (Err.Number < 0) Or (strTest = "FALSE") Then


The error object is not filled, nothing. It acts as is the
statement was
"End".

I've also tried it with "strTest =
Worksheets("StatusData").Range("Vision").Text" but does the
same thing.

strTest is Dim'd as a string.

The range "Vision" that I am looking for does not exist (that's
why I'm
doing in line error checking).

Any ideas why it would just stop without any notification of
why in step
mode but work properly when run normally?

thanks









All times are GMT +1. The time now is 04:06 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com