Macro para guardar hoja de calculo en nuevo libro

Estimados amig@s:

En su pagina encontré el siguiente código:

Sub prueba2()

'Por Luismondelo

mio = ActiveWorkbook.Name

nombre = Sheets("positivo").Range("d12").Value

Workbooks.Add

otro = ActiveWorkbook.Name

Workbooks(mio).Activate Sheets("positivo").Copy after:=Workbooks(otro).Sheets(Workbooks(otro).Sheets.Count)

ActiveWorkbook.SaveAs nombre

ActiveWorkbook.Close False

End Sub

Es una excelente macro y hace el 99% de lo que necesito, pero que código tendría que aumentar para que me de la opción de guardar como? O sea poder elegir el destino en donde guardar mi archivo, desde ya muchas gracias por su atención,

Saludos

Jesús