VB In Excel

[Parker]

Anyone good with Visual Basic in Excel?

I have a piece of code I'm having trouble with:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Range("A1")
If Not Intersect(Target, rng) Is Nothing Then
If rng = "Product A" Then
MsgBox "Are we Making Product B That Day?"
End If
End If
Set rng = Nothing
End Sub

I can get this to function for 1 cell only (A1) I need it to function for the entire column (A1:A5000) and I can't seem to get it to function and I'm not sure why.

If I use the range (A1:A5000) I get a error in this line:

If rng = "Product A" Then