This code is to be pasted into the sheet code module for the sheet with the
applicable cells a1 and b1. Right click the sheet name tab and select View
Code from the pop up menu. The appropriate code window should open.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
If InStr(1, LCase(Target.Value), "mont") 0 Then
Range("B1") = "This is the responsibility of..."
Else
Range("B1") = ""
End If
End If
End Sub



"andreashermle" wrote in message
...
Dear Experts:

I would like to run a macro with the following requirements.

As soon as the cell value in A1 changes and the string "Mont" is part
of the cell value in A1, the Contents of B1 is to change to "This is
the responsibility of...). If this not the case nothing is to be
displayed in Cell B1

Help is much appreciated. Thank you very much in advance.

Regards, Andreas