VBA: Append timestamp to the active workbook's name

AppendTimeStampToCurrentWorkbook.bas

Sub AppendTimeStampToCurrentWorkbook()
    Dim myName As String
    Dim newName As String
    Dim last_dot As Long
        
    myName = ActiveWorkbook.fullName
    ' InStrRev finds last occurrence of a string in another
    last_dot = InStrRev(myName, ".")

    newName = Left$(myName, last_dot - 1) & " - " & Format$(Now, "MM-DD-YYYY HH.MM AM/PM") & Mid$(myName, last_dot)
    MsgBox newName
End Sub