VB Nested IF

[rmfrase]

Based on the results, I need to have the VM Macro jump to a specified section. but I'm having trouble on this and need assistance if possible.

For i = 2 To lastrow
'get values from cells
Cells(i, Ext.Column).Select
prop = Cells(i, Ext.Column)

Cells(i, GSE.Column).Select
Gcode = Cells(i, G.Column)

Cells(i, prop.Column).Select
PType = Cells(i, prop.Column)

'now figure out where to go (and where I'm having trouble as it does not go where I need it to go based on the IF statement results.
'if true on all 3
if prop = "Int", Gcode = "other", PType = "SFD" then gosub INTSFD
if prop = "Ext", Gcode = "other", PType = "Other" then gosub EXTSFD
if prop = "Int", Gcode = "FN", PType = "SFD" then gosub INTFNSFD

'loop it
Loop:
next i

INTSFD:
' I'll do something here
return

EXTSFD:
' I'll do something here
return

INTFNSFD:
' I'll do something here
return

 

[VoG]

Maybe something like this

For i = 2 To lastrow
'get values from cells
prop = Cells(i, Ext.Column).Value

Gcode = Cells(i, G.Column).Value

PType = Cells(i, prop.Column).Value

'now figure out where to go (and where I'm having trouble as it does not go where I need it to go based on the IF statement results.
'if true on all 3
If prop = "Int" And Gcode = "other" And PType = "SFD" Then GoTo INTSFD

 

[rmfrase]

I just tried that but it did not work.

While running the Macro, it went thru each line but did not "Goto" the destination as expected it simply passed thru it as if nothing matched. But the Values were as expected. So I'm not sure why it didn't work.

 

[RSXchin]

Try GOTO instead of GOSUB

 

[rmfrase]

I did.

 

[rmfrase]

I found the issue - Interior wasn't INTERIOR (upper case)

Thank you for your help.