search for something like.....

I use a macro that I have written......

Range("F1").Select
Do Until ActiveCell = "City Ledger"
ActiveCell.Offset(1, 0).Select
Loop

my problem is this works MOST of the time, but once in a while the cell will have one extra character following the string such as a * or a / or something of the sort, how can I write this to select those cells that start with City Ledger, no matter what follows afterwards.

Your help is greatly appreciated.