Module level variable
Option Explicit Dim Sales Sub Scope1() Sales = Sales + 1 MsgBox Sales End Sub Sub Scope2() Sales = Sales + 10 MsgBox Sales End Sub