Else Function

Maybe

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C5:C11")) Is Nothing Then
    If Target.Value < 50 Then MsgBox "You Got " & Target.Value & " You may Now Close Game By 2 or 3 Dart's to close game"
End If
End Sub

Care to supply some more information?
"it aint work" doesn't exactly give me much to go on

LOl Right ….

I have put that code in from you and enter score in my cell When i Came to cell "C5" and have score left lower than 50 then it aint show Msgbox

send you a link to my file on PM

Please upload the file to the thread.
to do that Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

value from e Formula

C5 = C6-B5

In that case try

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B5:B11")) Is Nothing Then
    If Target.Offset(, 1).Value < 50 Then MsgBox "You Got " & Target.Offset(, 1).Value & " You may Now Close Game By 2 or 3 Dart's to close game"
End If
End Sub

https://www.dropbox.com/s/25f0m4yne4...game.xlsm?dl=0

Link to my file

as i can see it get Target value and that aint Right it is Left score there should be Showing in Msgbox

In that case simply remove the offset from target in the msgbox

I not sure What you Mean By That

By The way I am No Expert i Google and find and try som VBA Codes and get them to Work

Just remove the part in red

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B5:B11")) Is Nothing Then
    If Target.Offset(, 1).Value < 50 Then MsgBox "You Got " & Target.Offset(, 1).Value & " You may Now Close Game By 2 or 3 Dart's to close game"
End If
End Sub

Thanks I just Copy and Past That Code you just Put up here and Now it work by Changing ("B5:B11") to ("C5:C11")

Thanks for Your Time to Help Mee

Glad to help & thanks for the feedback

Hm a litle question more if i may

when i Get it on ("C5:C11") but also want it to work on ("E4:E9") how do i put that in the code

Based on your file try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B11,D2:D9,F2:F7")) Is Nothing Then
    If Target.Offset(, 1).Value < 50 Then MsgBox "You Got " & Target.Value & " You may Now Close Game By 2 or 3 Dart's to close game"
End If
End Sub

Hey Fluff13 i have now try the code and it works Ok
until i use my Clean cell Macro
then this error came up

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C4:C11,E4:E9,G4:G7,I3:I5,K3")) Is Nothing Then
If Target.Offset(, 1).Value < 50 Then MsgBox "You Got " & Target.Offset(, 1).Value & " You may Now Close Game By 2 or 3 Dart's to close game"
End If
End Sub

Runtime error 13 Type Mismatch and this line is Highlited in yellow

If Target.Offset(, 1).Value < 50 Then

Hope that was enough Info

my code for Clean cell is

Sub Nulstil50()
'
' Nulstil50 Makro
'

'
Range("J2:J3,H2:H5,F2:F7,D2:D9,B2:B11").Select
Range("B2").Activate
Selection.ClearContents
End Sub

Did you try the code I supplied in post#19, rather than your own version?

Also the code you have supplied in post#20 is probably not doing what you think it's doing.
Your code will trigger if ANY cell OTHER than the ones listed are changed.
This is because the code I supplied earlier had a typo

see that's the mystic part of it

the code WORKs on every Colom it first when i want to Clean cell it get wrong

What happens if you key a value in A1?

That was the Solution, Clear cell's and enter "0" to the cell and it works

Thanks