View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default I want a msgbox when the contents of cell change

Hi
use the following worksheet event code. Put this in your worksheet
module:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("C13:C15")) Is Nothing Then
Exit Sub
End If
with target
if .value = "AL" or .value="HDAY" then
msgbox "You entered: " & .value
end if
end with

End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


Matt wrote:
I have a range of cells(C13:C15) that the user inputs data. There
are actually more cells that I want to check, but this is a sample.
What I want is for Excel to check the cell after the user inputs data
to see if they put in "AL" or "HDAY". If they put in "AL", then I
want a messagebox to come up saying that they entered "AL" and the
same for if they enter "HDAY". If they enter anything else in the
cell, I don't want it to do anything. I want this code to run
everytime a user inputs data in this range of cells. Thanks in
advance. Matt