'add a file to recent docs list

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)

Public Sub AddtoRecentDocs(ByVal FileName As String)

    If Dir(FileName) Then
        SHAddToRecentDocs 2, FileName
    End If

End Sub