Message Box

[Claire Jackson]

Hi,

I need a message box to pop up when I change a cell based on another cell in the worksheet. Basically if I change B5 and if B6 returns "phase" contained within the text (via a lookup) then I need a message box to popup. I've tried allsorts but it's not working. Any ideas please?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
If Worksheets("WIP Sheet").Range("B6").Value = "*phase*" Then
MsgBox ("Please fill the next column!")
End If
End Sub

 

[Joe4]

Are both these cells on the same sheet?
Will the value in cell B6 be EXACTLY "phase", or will it be some wording containing the word "phase"?
What is the name of the module you have placed this VBA code in?

 

[Claire Jackson]

Are both these cells on the same sheet?
Will the value in cell B6 be EXACTLY "phase", or will it be some wording containing the word "phase"?
What is the name of the module you have placed this VBA code in?

Hi yes, they are box on the same sheet, it will contain the word phase within other text in the cell and it's in module1