Debug.Print FileName & " opened."
    Select Case UCase(Right(FileName, 6))
        Case "SLDASM"
            Debug.Print "Document type opened: Assembly"
        Case "SLDDRW"
            Debug.Print "Document type opened: Drawing"
        Case "SLDPRT"
            Debug.Print "Document type opened: Part"
        Case Else
            Debug.Print "Document type opened: Unknown"
    End Select