Так животные нужна помощь.

=SEARCH(" ";string;0)

нет

idi excel uchi, wmara

=SEARCH(" ";string;0)

нет

idi excel uchi, wmara

нет

Sub Avtor_mudakdak()
Dim s As String
Dim i, j As Integer
j = 0
s = Sheets(1).Cells(1, 1).Value
For i = 1 To Len(s)
    If Mid(s, i, 1) = " " Then
        j = j + 1
Dim s As String
Dim i, j As Integer
j = 0
s = Sheets(1).Cells(1, 1).Value
For i = 1 To Len(s)
    If Mid(s, i, 1) = " " Then
        j = j + 1
    End If
Next 
Sheets(1).Cells(2, 1).Value = "probelov = " & j
End Sub

Хахаххаах