VBA code to display screen message if cell contents change

[Mel Smith]

Hello folks,

I'm trying (and failing) to write some code to display a screen message e.g. "Update historical record" every time a cell is changed in the range of B2:B61

Can anyone help me, please?

Mel

 

[Legacy 143009]

Are you looking for something like this?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B2:B61")) Is Nothing Then
    Application.EnableEvents = False
    MsgBox "Update historical record"
    Application.EnableEvents = True
  End If
End Sub

 

[Mel Smith]

Hello Flashbond,

That's just perfect! Thank you.

Mel

 

[Legacy 143009]

You are welcome