Here is Function that might help you. Just add a line a code to call it form your Create Revision macro.
What it does it converts the revision letter into ASCII code and increments it by 1 to get to the next letter.
Function RevisionStatusChange()
Dim Revision As String
Dim RevisionLetter As String
Dim RevASCII As Integer
Revision = Sheets("Manufacturing Bom").Range("D5").Value
RevisionLetter = Right(Revision, 1)
RevASCII = Asc(RevisionLetter)
Sheets("Manufacturing Bom").Range("D5").Value = "Rev " & Chr(RevASCII + 1)
End Function
Bookmarks