Hello,

Could some one please help me modify the following vba code so that I
can enter string-text into column A instead of a long-number?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lrowA As Long
Dim lrowH As Long

lrowA = Cells(Rows.Count, "A").End(xlUp).Row
lrowH = Cells(Rows.Count, "H").End(xlUp).Row

If lrowH < lrowA Then
For i = lrowH + 1 To lrowA
Cells(i, "H").FillDown
Next
End If

End Sub

Any help would be greatly appreciated.

Thanks,

Chris.



*** Sent via Developersdex http://www.developersdex.com ***