Extract the first part of a worksheet name up to first space

I have multiple sheets that need to renamed up the first space in the current name. For example, for a worksheet named: 'abc text more text', I want to keep 'abc'. I have to do this for multiple sheets and the number of characters before the space varies. I was able to use vba to pull the left most characters:

Sub test()
Dim ws As Object
For Each ws In ActiveWorkbook.Worksheets
ws.Name = Left(ws.Name, 5)
Next ws
End Sub

but I can't see how to modify this to stop at space, similar to how this is done in this formula: =LEFT(A1,(FIND(" ",A1,1)-1))

any thoughts? I'm sure it's a simple fix!