Increment number in parenthesis by 1

[FryGirl]

So far I've been able to put together the following VBA code for replacing a number within the parentheses by 1.

However, if the cell does not contain parentheses, how do I avoid that error. Also, is there a cleaner way to do this.

In the example below, row 3 would change to 11 and row 5, 45, while keeping the parentheses.

Sub Test()
    Dim mystr As String
    Dim par1CharNum As Long
    Dim par2CharNum As Long
    Dim MyParseStr As Long
    Dim LastRow As Long: LastRow = Sheets("Birthdays").Cells(Rows.Count, "E").End(xlUp).Row
    Dim i As Long
    For i = 3 To LastRow
        mystr = Sheets("Birthdays").Range("E" & i).Value
        par1CharNum = InStr(1, mystr, "(")
        par2CharNum = InStr(par1CharNum, mystr, ")")
        MyParseStr = Mid(mystr, par1CharNum + 1, par2CharNum - par1CharNum - 1)
        Sheets("Birthdays").Range("E" & i).Value = Left(mystr, par1CharNum - 2) & " (" & MyParseStr + 1 & ")"
    Next i
End Sub

Calendar.xlsm
	E
1	Name
2	Mickey Mouse
3	Donald Duck (10)
4	George Washington
5	Abraham Lincoln (44)
Sheet2

 

[FryGirl]

Thanks Dante. This works great as well.

 

[DanteAmor]

Thanks Dante. This works great as well.

In fact it works fine if in the same cell you have 2 names with the same number.

Im glad to help you, thanks for the feedback.

 

[FryGirl]

If there are 2 equal ages in the cell, the increment is 2 instead of 1.

Thanks Dante, not sure I would have ever caught that.

 

[DanteAmor]

My macro works for this case:

varios 24nov2022.xlsm
	E
1	Name
2	Mickey Mouse
3	Donald Duck (11)
4	George Washington
5	Abraham Lincoln (45)
6	George Brett Sammy Sosa (35)
7	Cal Ripkin Mickey Mantle (34) Babe Ruth Lionel Messi (34)
8	Alfred Hitchcock (56) Clint Eastwood (19)
Birthdays