Sub plusone()
Dim fn As String: fn = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
Dim y As Integer: y = Right(fn, 6)
[f2] = Left(fn, 5) & Left("0000000", Len("0000000") - Len(y)) & (y + 1)
Dim fn As String: fn = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
Dim y As Integer: y = Right(fn, 6)
[f2] = Left(fn, 5) & Left("0000000", Len("0000000") - Len(y)) & (y + 1)
End Sub
'filename: xyzhd000001.xlsm => xyzhd000002.xlsm