I must be stupid

[i8ig]

Can someone suggest how to make this work?

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 7/28/2007 by i8ig
'

If Target.Column = 1 Then
   If Target.Value = "Med" Then
      Rows(Target.Row).Interior.ColorIndex = 4
      Range("H3").Select
      ActiveCell.FormulaR1C1 = "=IF(RC[3]="""","""",RC[3]-3)"
   Else
       If Target.Value = "Tasc" Then
          Rows("4:4").Interior.ColorIndex = 44
          Range("H4").Select
          ActiveCell.FormulaR1C1 = "=IF(RC[1]="""","""",RC[1]-2)"
       Else
           If Target.Range = "NBAR" Then
              Range("J5").Select
              ActiveCell.FormulaR1C1 = "=IF(RC[1]="""","""",RC[1]-5)"
              Range("I5").Select
              ActiveCell.FormulaR1C1 = "=IF(RC[1]="""","""",RC[1]-2)"
              Range("H5").Select
              ActiveCell.FormulaR1C1 = "=IF(RC[1]="""","""",RC[1]-2)"
           End If
       End If
   End If
End If
End Sub

I continue to receive an error '424' object required and I cant find it

EDIT: added code tags - Smitty

 

[Norie]

Take a look at this.

Private Sub Worksheet_Change(ByVal Target As Range)

Target is being passed to the worksheet's change event and refers to the range that has been changed.

There's nothing like that in your code.

And you've still not really indicated what you want the code to do and when it should be triggered.

Roy's code will be triggered when a value is entered in column 1.

Is that what you want?