Guardar Libros en Carpetas

Hola, tengo el siguiente caso, tengo un formulario que contiene un checkbox y un combobox, el checkbox habilita el combobox y simultáneamente, crea una carpeta con la fecha del dia que la creo y en una ruta en especifico, el combobox crea diferentes libros con el value del combobox, quisiera saber como puedo hacer para que los libros que genere el combobox, se guarden en la carpeta que creo el checkbox. Adjunto códigos que uso:

Checkbox:

Dim Path As String, NombreCarpeta As String

Path = "B:\Prenominas\" NombreCarpeta = "Archivos"

Fecha = Format(Now, "dd-mm-yy")

MkDir Path & NombreCarpeta & " " & Fecha

Combobox:

Nombre = Prenominas.ComboBox1.Value

ruta = "B:\Prenominas\"

Tipo = "Prenomina"

'Workbooks.Add

ActiveWorkbook.SaveAs ruta & Nombre

De antemano gracias por la ayuda.