merge named ranges

[Roland]

is there a build-in function to merge 2 named ranges and give this a 3rd name

 

[Gary''s Student]

Say we have two ranges named alpha and beta and want to merge them into
something called gamma.

Sub roland()
Union(Range("alpha"), Range("beta")).Name = "gamma"
End Sub