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
.