I have written the following macro but cant get it to do anything, any suggestions?
Private Sub StevesWorkbook(ByVal Target As Range)
If Target.Colunm = 1 Then
If Target.Value = "Med" Then
Rows(Target.Row).Interior.ColorIndex = 4
Cells(Target.Row, 11) = "Q="","",Q-5"
Else
If Target.Value = "Tasc" Then
Rows(Target.Row).Interior.ColorIndex = 5
Cells(Target.Row, 11) = "M="","",M-2"
Else
If Target.Value = "Nbar" Then
Rows(Target.Row).Interior.ColorIndex = x1ColorIndexNone
Cells(Target.Row, 10) = "M="","",M-2"
Cells(Target.Row, 12) = "O="","",O-3"
Cells(Target.Row, 14) = "Q="","",Q-5"
Else
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
End If
End If
End If
End If
End Sub
Sub Steves()
End Sub
Private Sub StevesWorkbook(ByVal Target As Range)
If Target.Colunm = 1 Then
If Target.Value = "Med" Then
Rows(Target.Row).Interior.ColorIndex = 4
Cells(Target.Row, 11) = "Q="","",Q-5"
Else
If Target.Value = "Tasc" Then
Rows(Target.Row).Interior.ColorIndex = 5
Cells(Target.Row, 11) = "M="","",M-2"
Else
If Target.Value = "Nbar" Then
Rows(Target.Row).Interior.ColorIndex = x1ColorIndexNone
Cells(Target.Row, 10) = "M="","",M-2"
Cells(Target.Row, 12) = "O="","",O-3"
Cells(Target.Row, 14) = "Q="","",Q-5"
Else
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
End If
End If
End If
End If
End Sub
Sub Steves()
End Sub