This might get you started.

Copy/paste the code into Sheet1 sheet module only since you want that sheet
to be the driver.

Private Sub Worksheet_Calculate()
On Error GoTo stoppit
Application.EnableEvents = False
With Me.Range("A1")
If .Value < 300 Then
MsgBox "Sheet1 A1 value is " & Sheets("Sheet1").Range("A1").Value & vbLf & _
"Sheet2 A1 value is " & Sheets("Sheet2").Range("A1").Value & vbLf & _
"Sheet3 A1 value is " & Sheets("Sheet3").Range("A1").Value
End If
End With
stoppit:
Application.EnableEvents = True
End Sub

Adjust cell references to suit.


Gord

On Tue, 29 Sep 2009 19:26:56 -0300, "Ed Davis"
wrote:

The numbers on sheets1 2 and 3 come from data that is entered in all of 31
other sheets.
These sheets are used 1 sheet per day and a calculation form these other
sheets are linked to sheets 1 2 and three.
The column of data I want to look at is a calculation from the number before
less sales in G Ex: H4 =(if(G4<0),H3-G4,0)
I have three areas in each of the 31 sheets each area represents the number
for the 3 sheets.
If the user enters a number in cell c4 it changes J12. J12, J13, and J14 is
the number that goes to the 3 sheets G? ?= the day of the month. Row 4
starts day 1 and row 5 = day 2.