Redefine static variable
Sub Scope1() Static Sales Sales = Sales + 1 MsgBox Sales End Sub Sub Scope2() Static Sales Sales = Sales + 10 MsgBox Sales End Sub