I having to clean up messy user entries and would need some vba help on
how-to approach the following:

I am looping through a worksheet, row by row to get a column's value (this
works). Now I would need to perform a cleanup on the cell's value.

The user's have, in certain instances put in 2, 3 ... extra spaces in the
value (name of people). and I need to remove the extra space so that I am
left with firstname space lastname, instead of firstname space space
lastname, etc...

I might have
'John Smith'
'John Smith'

When I need to clean it up so I have
'John Smith'

This is my loop code, but I am lost on how to clean up the OpenedBy variable
For i = 2 To lstRow
OpenedBy = Range("J" & i).Text

'What would I need to do to remove extra spaces from the OpenedBy
variable?
Next i

Thank you,

QB