Attribute VB_Name = "ManualSubs" Option Explicit Public Sub RunClear() Call ClearAll End Sub