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:

Please Login or Register  to view this content.

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!

@Fluff13
Is there a reason for declaring the the variable ws as Object not as Worksheet?

Thanks a lot Fluff.
Regards