pop-up meddelelse afhængig af værdi fra rulleliste

Jeg vil gerne lave en pop-up meddelelses når en bestemt værdi vælges fra en rulleliste. Rullelisten ligger i en combo-box som jeg har kaldt "reference".
Jeg har forsøgt mig med følgende:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim rng As Range
  Set rng = Range("d5")
  If Not Intersect(Target, rng) Is Nothing Then
      If rng = 1 Then
        MsgBox "Husk at vælge system i A22"
      End If
  End If

  Set rng = Nothing

End Sub


Jeg kan ikke få det til at virke sammen med combo-boxen

vh
sha