Compile error

  • Thread starter Thread starter Learning VBA
  • Start date Start date
L

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
 
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
 
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
 
Back
Top