This might do what you're after for the active workbook:
Public Sub IncrementVersionNumber()
Dim vStart As Long
Dim vEnd As Long
Dim vNumber As Long
Dim sNumber As String
Dim saveFile As String
saveFile = ActiveWorkbook.Name
vEnd = InStrRev(saveFile, ".")
vStart = InStrRev(saveFile, "_v")
If vEnd = 0 Or vStart = 0 Then Exit Sub
sNumber = Mid(saveFile, vStart + 2, vEnd - vStart - 2)
If Not IsNumeric(sNumber) Then Exit Sub
vNumber = CLng(sNumber) + 1
saveFile = Left(saveFile, vStart) & "v" & CStr(vNumber) & Mid(saveFile, vEnd)
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & saveFile
End Sub
WBD
Bookmarks