Proper syntax to exit a loop if IsError is true

take a look at the SPLIT functon

MyArray = Split(Range("A1").value, " ")
MyCount = Ubound(MyArray) + 1

untested but I believe this should work....you don't have to check through the cell for spaces the Split command "splits" the Value by whatever delimiter you use and puts it in an array and then you can use Ubound (Upper Bound) + 1 to "count" the spaces....HTH