Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run Time Error 13- Type mismatch
I have the following conditional formatting VB code in my worksheet. The code
works does what it need to do except when I drag and copy cells or when I copy and paste in subsiquent cells selected by draging. I get the "Run Time Error 13- Type mismatch". ------------------------------------------------------------------------------ Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("F1:F400")) Is Nothing Then Select Case Target Case "Red": icolor = 3 Case "Green": icolor = 4 Case "Blue": icolor = 5 Case "White": icolor = 2 Case "Gray": icolor = 15 Case "x": icolor = 1 Case "xx": icolor = 40 Case Else: 'Whatever End Select Target.Interior.ColorIndex = icolor Target.Font.ColorIndex = icolor End If End Sub --------------------------------------------------------------------------- |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run-time error 13: Type mismatch? | Excel Discussion (Misc queries) | |||
run time error 13 type mismatch | Excel Programming | |||
Run Time Error 13 Type Mismatch | Excel Programming | |||
run time error 13 type mismatch | Excel Programming | |||
Run Time Error '13' Type mismatch | Excel Programming |