Using answer below for Cell A1.
How can I alter the formula for as many cells as I like, say 100 cells
vertically?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then

Target.Value = Replace(Target.Value, " ", Chr(10))
End If
End Sub