Something like:

Option Explicit
Sub testme01()

   Dim wksMstr As Worksheet
   Dim wksOther As Worksheet
   Dim nm As Name
   Dim testRng As Range
   Dim ExclamPos As Long
       
   Set wksMstr = Worksheets("x z")
   Set wksOther = Worksheets("y z")
   
   For Each nm In wksMstr.Names
       Set testRng = Nothing
       On Error Resume Next
       Set testRng = nm.RefersToRange
       On Error GoTo 0
       
       If testRng Is Nothing Then
           'do nothing
       Else
           ExclamPos = InStr(1, nm.Name, "!", vbTextCompare)
           If ExclamPos > 0 Then
               With wksOther
                   .Names.Add _
                      Name:="'" & .Name & "'" & Mid(nm.Name, ExclamPos),
_                    
                      RefersTo:=.Range(testRng.Address)
               End With
           End If
       End If
   Next nm
End Sub

I'd get a copy of Jan Karel Pieterse's (with Charles Williams and Matthew
Henson) Name Manager:

You can find it at:
NameManager.Zip from http://www.oaltd.co.uk/mvp