Macro para reabrir un archivo

Tengo la siguiente macro en un libro llamado menu

Sub escritorio()
'Por.Marcelo Obregon

If ActiveSheet.Range("H18") = "Ingrese Legajo primero" Then
MsgBox ("Por favor ingrese o verifique el numero de legajo")
Range("E18").Select
Exit Sub
End If
Dim verif As Boolean
verif = VerificarPedido()
If verif = False Then
Exit Sub
Else
ruta = Environ("USERPROFILE") & "\Desktop\"
Set h1 = Sheets("Menu")
celda = "c117"
'
nombre = h1.Range(celda) & ".xlsm"
ThisWorkbook.SaveCopyAs ruta & nombre
MsgBox "Copia guardada en escritorio con nombre y apellido, por favor enviar la misma por mail!", vbInformation, ""
Range("E18").Select
End If
End Sub

La misma genera un archivo con el nombre y apellido de la persona que lo pide y lo guarda en el escritorio y luego cierra el archivo "Menu"

Necesito que luego que se cierra el archivo se vuelva a abrir el archivo menu para que otra persona pueda realizar su pedido.