Incrementing a string

[Francis Hookham]

Column C contains string IDs with a varying number of blank cells between
each.

Having found the last entry in column E with:



iDoorRow = Sheets("Pages").Cells(Rows.Count, 5).End(xlUp).Row

sDoorName = Sheets("Pages").Cells(iDoorRow, 5)

How can I increment the string (sDoorName) (in this case D02-003) to
D02-004?
Then I can prompt the user to confirm that as the next door or to type in
D03-001 to start the next sequence.



Francis Hookham



---------------------------------------------------------------------------



D01-001



D01-002



D01-003



D01-004



D01-004a



D01-005



D02-001



D02-002



D02-003

 

[Jay Freedman]

Hi Francis,

You're posting another Excel question in the Word VBA group. Please
get into the habit of verifying the group name before sending a post.

 

[Francis Hookham]

Ops! Sorry, I thought I had - it's me age!
I'll make sure hen I repost the question.
Francis