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