Optional parameters
Sub increment(x, Optional y) If IsMissing(y) Then x = x + 1 Else x = x + y End If End Sub