Sub nextnum()
With Cells(Rows.Count, 1).End(xlUp)
.Offset(1) = "CE" & Format(Mid(.Value, 3) + 1, "000000")
End With
End Sub

"Bobbo" wrote in message
...
I am looking to create a macro that will allow me to open a spreadsheet
and
search column A for the last entry. The entries in the column are like
CE000001, CE000002, CE000003 and on. I need to be able to find the last
number that was used. After getting the number I will need to insert a new
number in sequence to the next row. Could you point me to some examples
that
might help.

Thanks
Bob