Macro para Guardar Libros

Hola, tengo el siguiente caso, si me pueden ayudar, tengo un formulario que contiene un checkbox y un combobox, el check habilita el combobox y a la vez crea una carpeta asi:

Dim Path As String, NombreCarpeta As String

Path = "B:\Prenominas\"

NombreCarpeta = "Archivos"

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

MkDir Path & NombreCarpeta & " " & Fecha

Y el combobox crea un libro nuevo con estas lineas:

Nombre = Prenominas.ComboBox1.Value

ruta = "B:\Prenominas\"

Workbooks.Add

ActiveWorkbook.SaveAs ruta & Nombre

lo que quiero es que estos libros nuevos, se guarden en la ubicación que me genero la carpeta creada por el checkbox. Que siempre va a tener un nombre distinto. Gracias