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 = “-”
    Else
        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

Advertisements

Leave a Reply

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

WordPress.com Logo

You are commenting using your WordPress.com 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 )

Google+ photo

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

Connecting to %s




%d bloggers like this: