Excel VB Macro question

[vtapia]

I have a quick question regarding some VB syntax. Basically, I want to check the 1st if statement and its true, and go to BPNum, I want to skip the rest of the code and go to the end of the subroutine, I do not want it to go back and execute the last bit of code.
Here is my code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet
'I have to validate the sheet change before doing anything
Set ws = s_BPSummary

If ws.Range("E3") <> ws.Range("A1") Then
    GoTo BPNum
ElseIf ws.Range("E4") <> ws.Range("B1") Then
    GoTo BPName
End If

BPNum:
    Application.EnableEvents = False
    ws.Range("A1") = ws.Range("E3")
    Call Move_Details_To_Summary
    Application.EnableEvents = True
    GoTo finish

BPName:
    Application.EnableEvents = False
    ws.Range("B1") = ws.Range("E4")
    Call Move_Name_Details_To_Summary
    Application.EnableEvents = True
    
finish:
End Sub

I know that with GoTo, after it is done executing wherever you "WentTo" it goes back and executes the next line of code, which is why it's executing BPName, is there any way I can make this skip BPName??

 

[Jonmo1]

Welcome to the board...

I would avoid using GoTo statements
You end up with what is effectionately referred to as "Spaghetti Code"
The more you do it, the more difficult it is to read and understand what the code is doing.

The purpose of the If structure is to do exactly what you want.
Do 1 thing if the expression is true, and do a different thing (or nothing at all) if it's false...

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
'I have to validate the sheet change before doing anything
Set ws = s_BPSummary
 
If ws.Range("E3") <> ws.Range("A1") Then
    Application.EnableEvents = False
    ws.Range("A1") = ws.Range("E3")
    Call Move_Details_To_Summary
    Application.EnableEvents = True
ElseIf ws.Range("E4") <> ws.Range("B1") Then
    Application.EnableEvents = False
    ws.Range("B1") = ws.Range("E4")
    Call Move_Name_Details_To_Summary
    Application.EnableEvents = True
End If
End Sub

Hope that helps.

 

[VoG]

GoTo is best avoided. Does this work

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet
'I have to validate the sheet change before doing anything
Set ws = s_BPSummary

If ws.Range("E3") <> ws.Range("A1") Then
    Application.EnableEvents = False
    ws.Range("A1") = ws.Range("E3")
    Call Move_Details_To_Summary
    Application.EnableEvents = True
    GoTo finish
ElseIf ws.Range("E4") <> ws.Range("B1") Then
 Application.EnableEvents = False
    ws.Range("A1") = ws.Range("E3")
    Call Move_Details_To_Summary
    Application.EnableEvents = True
End If
End Sub

 

[vtapia]

Thanks for your help, I actually figured out it was some code in one of my macros that I forgot to comment out. I did change my code to what you suggested, it's much easier to read/understand