Case compile error - case without select case

[tweek]

Hi.

I´m trying out CASE for the first time in VB. I´m starting out with a simple cell format but it gives me an error on case 2, please look at the code below. Can anybody give me a reason why and maybe some pointers?

Thank you.

 

[tweek]

Sub AAA()

Number = 4
Select Case Number
Case 1
Cells(1, 10).Select
With Selection.Interior
.Color = 255
Case 2
Cells(1, 11).Select
With Selection.Interior
.Color = 255
Case 3
Cells(1, 12).Select
With Selection.Interior
.Color = 255
Case 4
Cells(1, 13).Select f
With Selection.Interior
.Color = 255
Case 5
Cells(1, 14).Select
With Selection.Interior
.Color = 255
Case Else
Cells(2, 14).Select
With Selection.Interior
.Color = 255
End Select

End Sub

 

[wigi]

Keep it simple - do not complicate matters.

Sub AAA()
    Number = 4
    Select Case Number
        Case 1 To 5: Cells(1, Number + 9).Interior.Color = 255
        Case Else: Cells(2, 14).Interior.Color = 255
    End Select
End Sub

Please use

 tags when pasting code to the Board here. Thanks.

 

[tweek]

Thank you! that works great.

But do you or anybody know why my code didn´t work?

 

[wigi]

You did not close the With statements by using "End With".

Indenting code would allow you to catch that error without effort.