set-default

Set Default Value In Subs/Functions

Set Default Value In Subs/Functions

Press on command1 to call the sub with the parameter 5, and command2 to
call the sub with no parameter. In the second case, the parameter value
will be the default value, that was set to be 1.

Preparations

Add 2 Command Buttons (named Command1 and Command2)

Form Code

Private Sub Command1_Click()
MySub (5)
End Sub

Private Sub Command2_Click()
MySub
End Sub

Sub MySub(Optional MyParameter As Long = 1)
MsgBox ("The parameter value is: " & MyParameter)
End Sub