Sub Test2(s,Optional s2) if IsMissing(s2) Then s2 = "Default" End if debug.Print s2 End Sub
test2 "the s value" test2 "svalue", "optional value"