Como guardar una hoja en un libro nuevo

Buen día, tengo una macro que guarda los datos de varias celdas en otra hoja a modo de historial de datos, entonces cuando se le da clic en guardar o guardar como... Mi macro actualiza la hoja Historial.
Recientemente le agregue la opcion de que ademas de actualizar el libro me de la opcion de "Guardar como..." en otra dirección ese libro generando así una copia del libro original.
Lo que necesito es que se abra la ventana "Guardar como" y solo guarde la Hoja1 del libro, actualmente tengo esta macro que llega hasta la ventana guardar como pero me guarda todo el libro:
Sub Salida()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "123456"
Sheets("NOTA").Visible = True
Sheets("NOTA").Select
OcultaTo
Application.DisplayAlerts = True
Application.EnableEvents = False
ThisWorkbook.CheckCompatibility = False
ThisWorkbook.Save
Application.Dialogs(xlDialogSaveAs).Show
Application.EnableEvents = True
MuestraTo
ActiveWorkbook.Protect "123456"
End Sub
---y en el workbook tengo esta macro, y desde aquí mando llamar a Salidas---
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'salida
Call Salida
Call guardaDatos
ActiveWorkbook.Saved = True
Cancel = True
End Sub
Espero puedan ayudarme, muchas gracias! :)