On 2002-03-13 03:32, Dave Hawley wrote:
Tr this, just alter the cell addresses to suit.
At the top of a standard module put
Public iVal1 As Integer
Public iVal2 As Integer
Public Ival3 As Integer
Public iFirstTime1 As Long
Public iFirstTime2 As Long
Public iFirstTime3 As Long
The in the Worksheet module put
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target) Then Exit Sub
Select Case Target.Address
Case "$B$1"
iFirstTime1 = 1 + iFirstTime1
If iFirstTime1 <> 1 Then Exit Sub
iVal1 = Target
Case "$B$5"
iFirstTime2 = 1 + iFirstTime2
If iFirstTime2 <> 1 Then Exit Sub
iVal2 = Target
Case "$B$5"
iFirstTime3 = 1 + iFirstTime3
If iFirstTime3 <> 1 Then Exit Sub
Ival3 = Target
End Select
End Sub