Compile error

[Learning VBA]

I am getting acompile error end with without with on this code.

With Me.Range("B190")
If .Value > 0 Then
ActiveSheet.Tab.ColorIndex = 6
Else
If .Value < 0 Then
ActiveSheet.Tab.ColorIndex = 3
Else
ActiveSheet.Tab.ColorIndex = 0
End If
End With

 

[Per Jessen]

You miss a 'End If' statement

With Me.Range("B190")
If .Value > 0 Then
ActiveSheet.Tab.ColorIndex = 6
Else
If .Value < 0 Then
ActiveSheet.Tab.ColorIndex = 3
End If ' <=====
Else
ActiveSheet.Tab.ColorIndex = 0
End If
End With

Regards,
Per

 

[Dave Peterson]

Maybe...

With Me.Range("B190")
If .Value > 0 Then
ActiveSheet.Tab.ColorIndex = 6
Else
If .Value < 0 Then
ActiveSheet.Tab.ColorIndex = 3
Else
ActiveSheet.Tab.ColorIndex = 0
End If
end if
End With

 

[Learning VBA]

Thank you Dave
That appears to have done what I want it to.