Good morning,
Please see the attached file, I have a macro running which changes the colour of the rows depending on the value in column H. It all appears to be working fine, however if, for example, I select BH in column H and try to drag this down i get an error message asking me to debug?
I need to be able to drag down the initials to save a lot of time, can anyone assist?
(Note- I have tried to attach the file however it is too large, I am getting run time error 13- 'type mismatch' appearing and it takes me to visual basic asking me to debug. Please see my macro below:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iColour As Integer
If Not Intersect(Target, Range("H13:H2000")) Is Nothing Then
Select Case StrConv(Target, vbUpperCase)
Case Is = "CJ"
iColour = 39
Case Is = "OJ"
iColour = 40
Case Is = "BH"
iColour = 38
Case Is = "EB"
iColour = 37
Case Is = ""
iColour = 34
Case Is = "JS"
iColour = 35
End Select
Target.EntireRow.Interior.ColorIndex = iColour
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Bookmarks