Checking range for a number from userform textbox more than 6 times

[Templemind]

I have a piece of code that I am unaware of. I want the code to check if the Roomnum.Value is already in 6 cells, then a MsgBox will appear. So, for example, if they write the number 30 in the Roomnum textbox and it occurs in the range of "C6:E38" 6 times already, then the msgbox will show. This is the code I have, and it works, but not the way I want to obviously.

Private Sub Roomnum_AfterUpdate()
    If Roomnum.Value > 6 Then
        MsgBox "This number is shown 6 times already"
        Exit Sub
    End If
End Sub

This code works if you input a number over 6 then the msgbox will show. I am not sure how it should be written if the value occurs more than 6 times.

[stnkynts]

Please re-read your post. I don't see the correlation of the number 30 with anything else (could it 30, 60, 8 million?: It doesn't seem to effect anything). I fear you have made a mistake in your post.

[Templemind]

stnkynts, 30 was just an example, so yes it could be anything, just as long as it doesn't occur 6 times within the range. Thanks for your help though.

[Olly]

Something like:

Dim rng As Range
Set rng = ActiveSheet.Range("C6:E38")
If WorksheetFunction.CountIf(rng, Roomnum.Value) >= 6 Then
    MsgBox Roomnum.Value & " appears at least 6 times", vbOKOnly + vbInformation, "Excel Forum"
End If

[Templemind]

Thank you Olly. It works perfectly.