C
Chris Hankin
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.
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.