"Oliver St Quintin" wrote in
message ...

I want to use this function to detect if anything has been entered or
altered in a spreadsheet, so that output of results is blanked out until
the
spreadsheet is recalculated.

I assume that the "spreadsheet is recalculated" means that you have
Calculation set to manual. If so then with the "results" in J10 enter the
following in the Worksheet Module:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim BackColour As Long

If Application.Calculation = xlManual Then
BackColour = Application.Max(2, Cells(10, 10).Interior.ColorIndex)
Cells(10, 10).Font.ColorIndex = BackColour
Else: Cells(10, 10).Font.ColorIndex = xlAutomatic
End If

End Sub
--
HTH

Sandy
In Perth, the ancient capital of Scotland


with @tiscali.co.uk

Sandy:

Thanks for your help. Not quite perhaps what I had in mind (my situation is
a little more complex than I described), but I see what you are doing and I
think I can use it despite my having the most superficial knowledge of Visual
Basic.

Oliver

"Sandy Mann" wrote:

"Oliver St Quintin" wrote in
message ...

I want to use this function to detect if anything has been entered or
altered in a spreadsheet, so that output of results is blanked out until
the
spreadsheet is recalculated.

I assume that the "spreadsheet is recalculated" means that you have
Calculation set to manual. If so then with the "results" in J10 enter the
following in the Worksheet Module:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim BackColour As Long

If Application.Calculation = xlManual Then
BackColour = Application.Max(2, Cells(10, 10).Interior.ColorIndex)
Cells(10, 10).Font.ColorIndex = BackColour
Else: Cells(10, 10).Font.ColorIndex = xlAutomatic
End If

End Sub
--
HTH

Sandy
In Perth, the ancient capital of Scotland


with @tiscali.co.uk

"Oliver St Quintin" wrote in
message ...
think I can use it despite my having the most superficial knowledge of
Visual

There's no better way to learn!

Good luck,


--

Sandy
In Perth, the ancient capital of Scotland


with @tiscali.co.uk


"Oliver St Quintin" wrote in
message ...
Sandy:

Thanks for your help. Not quite perhaps what I had in mind (my situation
is
a little more complex than I described), but I see what you are doing and
I
think I can use it despite my having the most superficial knowledge of
Visual
Basic.

Oliver

"Sandy Mann" wrote:

"Oliver St Quintin" wrote in
message ...

I want to use this function to detect if anything has been entered or
altered in a spreadsheet, so that output of results is blanked out
until
the
spreadsheet is recalculated.

I assume that the "spreadsheet is recalculated" means that you have
Calculation set to manual. If so then with the "results" in J10 enter
the
following in the Worksheet Module:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim BackColour As Long

If Application.Calculation = xlManual Then
BackColour = Application.Max(2, Cells(10,
10).Interior.ColorIndex)
Cells(10, 10).Font.ColorIndex = BackColour
Else: Cells(10, 10).Font.ColorIndex = xlAutomatic
End If

End Sub
--
HTH

Sandy
In Perth, the ancient capital of Scotland


with @tiscali.co.uk