WorkSheet_Change(ByVal Target As Range)

[itsme2]

I have several lines on code on this worksheet however I am having trouble getting the second line of the below to work

I only want it to display a message box if the counts in the rc -1 is greater than 1

WorkSheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Cells.Count = 1 Then
 
Cells(Target.Row, 4).FormulaR1C1 = "=IF(RC[-3] > 1, COUNTIF(C[-3],RC[-3]),"""")"
    'Cells(Target.Row, 5).FormulaR1C1 = "=IF(RC[-1] > 1, (MsgBox "Try", vbCritical),"""")

End If

End Sub
[code]

How do I access this message box when contents of column "c" are greater then 1 using the countif statment?

 :-?

 

[jindon]

Not sure what you really want to do.
Since you're targeting on columnA, simply

WorkSheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Cells.Count = 1 Then
 
Cells(Target.Row, 4).FormulaR1C1 = "=IF(RC[-3] > 1, COUNTIF(C[-3],RC[-3]),"""")"
If Target.Value > 1 Then MsgBox("Try", vbCritical)

End If

End Sub