Macro para pasar de excel a PDF

[JoaoM]

Tengo este;

Sub Excel_PDF()
nombre = Range("A1").Value
Range("b2:k34").Select
Range("k34").Activate
Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"c:\0\" & nombre & ".pdf" + Cells(7, 7) + "", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Range("B2").Select
End Sub

Me funciona pero en esta linea (nombre = Range("A1").Value) quisiera que fuera el nombre que tiene la pestaña de la hoja y no de la celda, esto porque puedo crear un boton en cada hoja para la misma macro y donde pone Range

Y
Otra seria que no me seleccionara celdas, no tuviera un rango de celdas sino el area de impresion;
si tiene datos hasta por ejemplo la linea A2:K200 o A2:B120 o A2:S423 ect ect, es decir rango variable

Y

Si existe el archivo pregunte si quier subscribirlo o darle otro nombre