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