Compile Error: Sub or Function not Defined - GoTo

[SBF12345]

Greetings,

This is what I'm working with...

If Range(Cells(k, b)) <> "" Then GoTo First Else GoTo Second
    
    First
    
        Set h = Range(Cells(k, k.End(xlToRight)))
        k = k - 1
        
        End If
        
        Loop
          
          
    Second
    
        h.Copy
        Range.Cells(k, b).PasteSpecial Paste:=xlPasteValues
        
        k = k - 1
        
        End If
        
        Loop

I am getting the compile error at "First"

How can I reference these two GoTo chunks properly?

Thanks!

 

[Norie]

You can't have a Goto...Else in VBA, not sure I've seen that in any language, though I could be wrong.

What is it you are trying to do with this piece of code?

 

[Rick Rothstein]

You can't have a Goto...Else in VBA,

Actually, there is nothing wrong with this line of code (so long as the variable k and b are assigned positive, non-zero integer values in the lead-in code the OP did not show us)...

If Range(Cells(k, b)) <> "" Then GoTo First Else GoTo Second

The reason the OP is getting the error he reports is because his First and Second "statements" later in the code are missing the trailing colon that would make them Labels so that the GoTo statements had targets to actually go to. As written, VB thinks those lines of code are calls to subroutines. Of course, adding the colons to make them proper Labels will only unveil the other errors in the OP's code. Those free-floating Loop statements have no corresponding Do statements. Of course, the OP only showed us a snippet of code, so the Do statement might be in the lead-in code he did not show us; however, he will still get an error because each Do statement can only have one Loop statement to close it off and the OP looks like he is trying to close it off with whichever Label the If statement send execution to, which, of course, you cannot do.

 

[Norie]

Rick

I realised the problem with the Goto was the labels, just got a bit confused by the overall syntax/structure.

I tried re-writing it with If...Else...End If but the Loop/k=k-1 part threw me off.