VBA Find first character in column

[VulkaJohn]

I have a column containing Given Names sorted into alphabetical order and want to find the first name starting with, say, "V". I do not want to find, say, "STEVEN" which contains a "V" but not as the first char. Assistance with a macro to do this please.

 

[Scott Huish]

Sub FindFirstChar()
Dim findChar As String, c As Range
findChar = InputBox("Find First")
Set c = Range("A:A").Find(findChar & "*", , , xlWhole)
If Not c Is Nothing Then c.Select
End Sub

 

[VulkaJohn]

Thanks, I am still a novice and I can already see other applications based on this, cheers Scott