VBA Excel End If without block If Error

Question

I have a lite problem with some statement in my code. the situation is like this: I am working with UserForm in excel based on selection of months and the data goes to my report from another report. To analyze data of certain month we need data of the month before. So for January we need data from last's year database for December. I made special sub just in case we need to analyze data about January and we need the old database too. And with that statment I have a problem and I get that error "VBA End If without block If Error" :

'If the month that was selected is January then we need to open old Visual file Month
If MonthName = Lists.Range("A2").Value Then 'it means January
    Call January
Else
    For Each ws In Worksheets
        If ws.Name = "December" Then
            Sheets("December").Delete
            End
        End If
    Next ws
End If

Please, can someone help?

I dont want to exit, just to stop the loop if I found worksheet named "December". @QHarr — Rafael Osipov
– Rafael Osipov, Commented Nov 26, 2017 at 15:12
BTW - It is not a good idea to use VBA function names (e.g. MonthName) as variable names. (I don't think that would cause the "End If without block If" error though - that sounds more like one of your If statements was written as a single-line If but you still wrote an End If for it, but your posted code doesn't show that.) — YowE3K
– YowE3K, Commented Nov 26, 2017 at 21:01

Shai Rado · Accepted Answer · 2017-11-26 16:50:01Z

8

Use Exit For to exit a For Loop.

If MonthName = Lists.Range("A2").Value Then 'it means January
    Call January
Else
    For Each ws In Worksheets
        If ws.Name = "December" Then
            ws.Delete
            Exit For
        End If
    Next ws
End If

edited Nov 26, 2017 at 16:50

Shai Rado

33.7k7 gold badges32 silver badges55 bronze badges

answered Nov 26, 2017 at 15:14

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA Excel End If without block If Error

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related