Application VisualBasic Script

Sub clear()
    Dim myMax As Long
    With Application.RecentFiles
        myMax = .Maximum
        .Maximum = 0
        .Maximum = myMax
    End With
End Sub