Cambiar color en celdas de distinta columna

Hola.

Hace unos días consulte como cambiar el color de un grupo de celdas de una
columna sin utilizar el formato condicional y obtuve un codigo que es el
siguiente:

Private Sub Worksheet_Change(ByVal Target1 As Range)
If Intersect(Target1, [f7:f186]) Is Nothing Then Exit Sub
Select Case Target1
Case "Casi Certeza"
Target1.Interior.ColorIndex = 3
Case "Probable"
Target1.Interior.ColorIndex = 44
Case "Moderado"
Target1.Interior.ColorIndex = 6
Case "Improbable"
Target1.Interior.ColorIndex = 4
Case "Muy improbable"
Target1.Interior.ColorIndex = 2
Case Else
Target1.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

Pues todo funciona muy bien excepto porque sólo la puedo aplicar a la
columna F7:F186, y necesito que funcione en otras 4 columnas con distintos
colores en cada una de ellas.

Es posible que me ayuden a solucionar el problemas.

Saludos.

Tomás Martínez
Talca
Chile