Option ExplicitPrivate mintAge As IntegerPrivate Sub cmd() mintAge = mintAge + 1 Debug.Print mintAgeEnd Sub