Loop too slow

Hello. I have a loop checking to see if a given cell in a specified column begins with a semicolon or a blank space. Some of the cells begin with 0 or 1 semicolons or spaces and some of them begin with multiple. It works and does exactly what I need it to. It is just too slow because I am dealing with good sized files. Is there a faster way to do this? Code is below. Thank you.


/begin code


Range("R2").Select
Dim myString As String
myString = Selection.Cells.Value

Do While IsEmpty(Selection.Cells.Value) = False
Do While Left(myString, 1) = ";" Or Left(myString, 1) = " "
Selection.Cells.Value = Right(myString, Len(myString) - 1)
myString = Selection.Cells.Value
Loop

ActiveCell.Offset(1).Select
myString = Selection.Cells.Value
Loop


/ end code

I have attached a small sample. If the cell begins with anything other than words, I want all the leading characters removed until the cell starts with words. As long as the cell begins with words, semicolons and or spaces can exist in the rest of the cell. They just can't be first in the cell. If the cell just has spaces or semicolons in it and no words, I want the entire cell blanked out. It is working fine now. It is just too slow.

Mumps1- Works great. Thanks!!