Thanks for this.
if i wanted to add some letters before the number how
would i go about this.
Thanks once again
mark
-----Original Message-----
ONe way:
Public Sub RCA()
If IsEmpty(Range("A2").Value) Then
Range("A2").Value = InputBox("Enter Starting
Value")
Else
Range("A" & Rows.Count).End(xlUp).Offset(1,
0).Value = _
Application.Max(Range("A:A"))+1
End If
End Sub
this assumes that there's nothing in column A below the
cells you're
filling
In article ,
"mark" wrote:
I would like the numbers to start in A2 then A3 Then
A4
etc
.
|