VBA: What's the difference b/n End and Exit Sub

[xenou]

When would I choose one of these over the other? What difference does it make?

Thanks all.

 

[mikerickson]

End Sub is the last statement in a sub.
Exit Sub must be used in all other cases.

You have no options in this matter.

 

[erik.van.geit]

Hi,

END stops really all code
Exit Sub does what is says: going out of the currently running SUB

END is drastic !!

example: run MAINsub
if you press YES in first macro, you will not see the next messagebox, but you will goto macro2
if you press YES in second macro you will never see the third

Sub main()
macro1
macro2
macro3
End Sub

Sub macro1()
If MsgBox("exit sub?", 36, "MACRO1") = vbYes Then Exit Sub
MsgBox "you didn't press YES", 64, "MACRO1"
End Sub
Sub macro2()
If MsgBox("end?", 36, "MACRO2") = vbYes Then End
MsgBox "you didn't press YES", 64, "MACRO2"
End Sub
Sub macro3()
MsgBox "Third macro", 64, "MACRO3"
End Sub

kind regards,
Erik

 

[xenou]

Thanks!

Regards.

 

[mactoolsix]

This is an old thread, however it pertains to a problem I'm having.
Last line is End Sub - error expected End With.
I changed it to End With - error expected End Sub.
I'm really missing something . .. .

Sub border_highlight_macro()

With ActiveSheet
    .Range(.Cells(9, 4), .Cells(50, 4)).Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
 
   .Range("D9:D50").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("E9:E50").Select
    Range("E50").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434828
        .TintAndShade = 0
        .PatternTintAndShade = 0
   End With

Appreciate any help with this,
Mike

 

[mactoolsix]

Figured it out!

Was missing one each Plus had an extra "."

Mike

 

[ramp10er]

I'm not an expert in VBA but I recognize that you have two "end with" but only one "with"...

 

[venkyxlvba]

This is an old thread, however it pertains to a problem I'm having.
Last line is End Sub - error expected End With.
I changed it to End With - error expected End Sub.
I'm really missing something . .. .

Sub border_highlight_macro()

With ActiveSheet
    .Range(.Cells(9, 4), .Cells(50, 4)).Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
 
   .Range("D9:D50").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("E9:E50").Select
    Range("E50").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434828
        .TintAndShade = 0
        .PatternTintAndShade = 0
   End With

Appreciate any help with this,
Mike

Dear Mike
U started with With Activesheet The End with for that is missing I suppose ,Pl chk

Regards
Venkat