On Wednesday, October 17, 2012 8:59:04 AM UTC-7, Bakar wrote:
Hi Everyone

can someone help please

let say I have in Sheet 1 in cells CW 24 =yes,CW 25 =yes,CW 26 =yes,CW

27 =yes,CW 28 =yes

If all thes cells are yes I want a macro to give me a message box

"Successfully completed!"



Thnxs for your valuable help

Bakar









--

Bakar

Here is a message box code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("CW24: CW28"), "yes") = 5 Then
MsgBox "Successfully completed!", vbOKOnly, "Get'er Done"
End If
End Sub