VBA Conditinal Formatting in multiple columns

[seasidematt]

I'm being really thick and cannot seem to get this to work but i looking at putting multiple VBA conditianl Formmating into one worksheet but cannot get it to work

In Coulmn A i have

Private Sub CellA(ByVal Target As Range)
 
If Target.Count > 1 Then Exit Sub
 
If Intersect(Target, Range("a3:a500")) Is Nothing Then Exit Sub
 
Select Case Target.Value

Case Is = ""
    Target.Interior.ColorIndex = 0

Case Is = "Em"
    Target.Interior.ColorIndex = 43
 
Case Is = "Ex"
    Target.Interior.ColorIndex = 44
    
Case Is = "Fst"
    Target.Interior.ColorIndex = 45
    
Case Is = "PDF"
    Target.Interior.ColorIndex = 50

Case Is = "SCS"
    Target.Interior.ColorIndex = 36
    
Case Is = "Oth"
    Target.Interior.ColorIndex = 44
  
End Select

End Sub

And then in column H i want this code

Private Sub CellH(ByVal Target As Range)
 
If Target.Count > 1 Then Exit Sub


If Intersect(Target, Range("h3:h500")) Is Nothing Then Exit Sub
 
Select Case Target.Value

Case Is = ""
    Target.Interior.ColorIndex = 0

Case Is = "R"
    Target.Interior.ColorIndex = 3
 
Case Is = "A"
    Target.Interior.ColorIndex = 45
    
Case Is = "G"
    Target.Interior.ColorIndex = 4
    
Case Is = "C"
    Target.Interior.ColorIndex = 33
  
End Select
 
End Sub

How do i combine them so they both work on teh same worksheet... I cannot fathom it out!

Thanks for yoru help
Matt

 

[VoG]

Perhaps like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
 
If Not Intersect(Target, Range("a3:a500")) Is Nothing Then
 
    Select Case Target.Value
    
    Case Is = ""
        Target.Interior.ColorIndex = 0
    
    Case Is = "Em"
        Target.Interior.ColorIndex = 43
     
    Case Is = "Ex"
        Target.Interior.ColorIndex = 44
        
    Case Is = "Fst"
        Target.Interior.ColorIndex = 45
        
    Case Is = "PDF"
        Target.Interior.ColorIndex = 50
    
    Case Is = "SCS"
        Target.Interior.ColorIndex = 36
        
    Case Is = "Oth"
        Target.Interior.ColorIndex = 44
      
    End Select
ElseIf Not Intersect(Target, Range("h3:h500")) Is Nothing Then
 
    Select Case Target.Value
    
    Case Is = ""
        Target.Interior.ColorIndex = 0
    
    Case Is = "R"
        Target.Interior.ColorIndex = 3
     
    Case Is = "A"
        Target.Interior.ColorIndex = 45
        
    Case Is = "G"
        Target.Interior.ColorIndex = 4
        
    Case Is = "C"
        Target.Interior.ColorIndex = 33
      
    End Select
End If
End Sub

 

[seasidematt]

Thanks fro your help thats done the trick