Option ExplicitDim SalesSub Scope1() Sales = Sales + 1 MsgBox SalesEnd SubSub Scope2() Sales = Sales + 10 MsgBox SalesEnd Sub