Revision Letter

If, by chance, you need to keep track of a document and would like something to add the revision letter for you, this should do the trick.  Yes, even ninjas get lazy.  The patern starts with “-” and continues through the alphabet in the same method as the column identifiers.


Sub Next_Revision()

    maxrow = ActiveSheet.UsedRange.Rows.Count
    If maxrow = 1 Then
        Cells(maxrow + 1, 1).Value = “-”
        Range(Cells(1, maxrow – 2), Cells(1, maxrow – 2)).Select
        next_letter = Left(Cells(1, maxrow – 1).Address(1, 0), InStr(1, Cells(1, maxrow – 1).Address(1, 0), “$”) – 1)
        Cells(1, 1).Select
        Cells(maxrow + 1, 1).Value = next_letter
    End If
End Sub


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s

%d bloggers like this: