VBA code to display message box

[suprsnipes]

Hi,

I am using a DDE link and want to display a message box. I am using the following code sample but it doesn't display a message box automatically, by this I mean I have to select the cell and push enter, even if the cell matches the statement. I haven't used this type of function before so I appreciate the help.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim rng As Range
   Set rng = Range("A14")
   If Not Intersect(Target, rng) Is Nothing Then
       If rng = "M" Then
        MsgBox "Cell " & _
         rng.Address & " = M"
       End If
   End If

   Set rng = Nothing

End Sub

Can anyone recommend another method?

Regards,
suprsnipes

 

[doofusboy]

Try switching from:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

To:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[suprsnipes]

Hi,

Thanks for the reply.

I would like to know if it is possible to setup this type of macro where the user doesn't have to select the cell or change the cell manually to display the message box. Perhaps I have done something wrong but the cell contains a formula linked to another cell and I want the message box to be triggered when the cell contains the letter "M". The code i have used attempted so far doesn't work this way instead I have to select the cell after I push enter the message box is displayed

The cell reference is A14.

Regards,
suprsnipes.