crear libro nuevo y manipularlo con vba

Buenos días, a ver si me echaís una ayudita;

Tengo un fichero excel (origen) que tras manipulaciones con vba me debe
crear otro (destino) que no existe.

Estoy haciendo un userform donde con un botón elijo un fichero origen (ya
existe) y con otro boton elijo un fichero destino (nuevo);
con el origen no tengo problemas, con el destino uso
-
Private Sub CommandButton2_Click()
Set NewBook = Workbooks.Add
Do
fname = Application.GetSaveAsFilename
Loop Until fname <> False
NewBook.SaveAs fileName:=fname
esta parte la he copiado de la ayuda de microsoft, pero fname al final me
queda como "C:\documentos\destino.xls"
entonces abro el destino
-
Workbooks.Open fileName:=fname

y ahora no sé como manejarlo
Workbooks(dest1).Name
destino = Workbooks(dest1).Name
MsgBox destino