prefixing a cell?

[HockeyFan]

I have a simple question.
I have a column in a spreadsheet where some rows start with the letter
Q, and some do not. I'd like to update the rows so that column is
prefixed with the letter Q on every row.
Is there a way to do this?

 

[Bob Phillips]

Sub AddQ()
Dim i As Long

For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,"A").Value <> "" Then
If Left(Cells(i,"A").Value,1) <> "Q" Then
Cells(i,"A").value = "Q" & Cells(i,"A").value
End If
End If
Next i
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)