Function otbetus(R As Range) As Integer otbetus = 0 For Each x In R If x = "" Or IsNumeric(x) = True Then MsgBox ("Ne írj számokat ,és ne hagyd üresen pls.") End If If Len(x) = 5 Then otbetus = otbetus + 1 End If Next MsgBox ("Ennyi cellában van öt betűs szó: " & otbetus) End Function