Macro para guardar en Diskettera

Hola Rene,

Prueba esto:

Sub GuardarHoja()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "A:\" & ActiveSheet.Name & ".xls"
.Close
End With
End Sub

Saludos,
KL


"Rene Palacios" wrote in message
news:

Hola estuve probando con la grabadora de macros pero no me salio bien,
espero
me puedan ayudar a crear una macro q automaticamente me guarde en La
disketter (A:) la hoja del libro donde estoy trabajando, tengo varias
hojas
en las q trabajo al dar click q esa hoja se guarde en A:

Gracias por su ayuda de antemano

hola KL gracias funciono muy bien la macro, pero dime es posible q no copie
la macro en la hoja q se graba en la diskettera, es decir q solo se vea los
datos, en el libro puse un boton q ejecuta la macro, al guardar la hoja en la
diskettera se graba dicha macro con el boton, se puede evitar eso...

Gracias