System 13 Error

[James_Latimer]

Excel 2003

Hello, i have a very strange issue that i cant get my head around. If someone could give me some pointers it would be much appreciated.

The following code is flagging the error...

Sub maxPSA()
Dim TVal
Dim Cnt
Dim sh As Worksheet: Set sh = Sheets("PSA_Summary")

Application.ScreenUpdating = False

For Cnt = 15 To 165
    If sh.Range("FH" & Cnt).Value = 1 Then
            TVal = sh.Range("$FI$" & Cnt).Value
        GoTo jd_End:
    End If
Next Cnt

Application.ScreenUpdating = True

jd_End:
PSA_graph (TVal)

End Sub

The line highlighted in bold is where the error occurs.

The sheet PSA_Summary does exist so i cant understand why this doesn't work. This doesn't happen on all machines!?!?!?!?!?!?!?!?!?!? Any ideas what may be causing this please?

Thanks to anyone who can help.

 

[Andrew Poulsom]

What's in the cell when the macro fails?

 

[James_Latimer]

Hello Andrew

The value is 0%

Just for future reference for myself, would an #N/A or something similar in that cell cause that issue or would the IF statement simply return a FALSE?

 

[AlphaFrog]

If sh.Range("FH" & Cnt).Value contains an error (#NA, #Value, etc.) as a value, then that would throw an error in your code

Maybe try something like this...

Sub maxPSA()
    Dim TVal
    Dim Cnt
    Dim sh As Worksheet: Set sh = Sheets("PSA_Summary")
    
    Application.ScreenUpdating = False
    
    For Cnt = 15 To 165
        [COLOR="Red"]If Not IsError(sh.Range("FH" & Cnt).Value) Then[/COLOR]
            If sh.Range("FH" & Cnt).Value = 1 Then
                TVal = sh.Range("$G$" & Cnt).Value
                Exit For
            End If
        [COLOR="Red"]End If[/COLOR]
    Next Cnt
    
    Application.ScreenUpdating = True
    
jd_End:
    PSA_graph (TVal)

End Sub

Note: you could also use Exit For to break out of the For-Next loop.