Issue with VBA else without if showing an error

Question

I am using the following VBA Else-If code:

If ActiveSheet.Range(range_name).Value < "8.50%" Then
   ActiveSheet.Shapes.Range(Array(shape_name)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(192, 0, 0)
        .Transparency = 0
        .Solid
    End With
    ElseIf ActiveSheet.Range(range_name).Value < "9.70%" Then
     ActiveSheet.Shapes.Range(Array(shape_name)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    Else
     ActiveSheet.Shapes.Range(Array(shape_name)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 255, 0)
        .Transparency = 0
        .Solid
    End With

When I run this, I receive an error: "Else without If ". So, I changed the Else line to:

 ElseIf ActiveSheet.Range(range_name).Value >= "9.70%" Then

But still, it is giving me the same error, even though this Else has an If

Why is that? And the first code is also correct and shouldn't give an error in the first place. So why is this happening? Thanks in advance!

sam092 · Accepted Answer · 2013-10-30 05:43:26Z

3

It's because you're missing an End With in the middle, i.e. this part

With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid

answered Oct 30, 2013 at 5:43

sam092

1,3251 gold badge8 silver badges8 bronze badges

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

1 Comment

L42 Over a year ago

agree with sam. all With statement within your If statement should be ended.

L42 · Accepted Answer · 2013-10-30 05:40:23Z

1

add this:

End If

on the last line.
This is to terminate the if statement like what you did in your With statement.

answered Oct 30, 2013 at 5:40

L42

19.8k11 gold badges47 silver badges70 bronze badges

2 Comments

user2862496 Over a year ago

Ya that that i wrote, i forgot to paste it here. Anyway thanks :)

L42 Over a year ago

anytime mate. :) we're glad to be of help. to avoid such, at the beginning of your code, end all statements that needs to be ended. then right your events in the middle.

Collectives™ on Stack Overflow

Issue with VBA else without if showing an error

2 Answers 2

1 Comment

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related