Denominación de hojas con fechas

Hola! tonya. Intenta con

Sub CambiaNombre()
ActiveSheet.Name = Format(DateSerial(Year(Now), Month(Now), 0), "Mmmyy")
End Sub


Saludos, Cacho.

hola, tonya !

En una macro que tengo quiero introducir un codigo que me permita
nombrar a la hoja activa con el nombre del mes anterior al que estamos y el a#o actua
(por ejemplo: septiembre2008)...
Es posible esto? Como tendria que ponerlo?...

otra alternativa (solo la instruccion)...

ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")

saludos,
hector.

hola (de nuevo), tonya !

(solo por si las dudas)...

considera que si tu codigo se ejecuta en un excel en otro idioma (ingles p.e.)
el nombre que recibira la hoja seria "September" (no "septiembre") -?-

saludos,
hector.

__ previos __

En una macro que tengo quiero introducir un codigo que me permita
nombrar a la hoja activa con el nombre del mes anterior al que estamos y el a#o actua
(por ejemplo: septiembre2008)...
Es posible esto? Como tendria que ponerlo?...

otra alternativa (solo la instruccion)...

ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")

"Héctor Miguel" escribió

ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")

Hola Héctor,

Existe algún motivo por el que haya que restar el valor del día presente al
de la fecha completa?
En un principio la siguiente funcionaría igual de bien

ActiveSheet.Name = Format(Date, "mmmmyyyy")

Un saludo,
Juan

hola, Juan !

ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")

Existe algun motivo por el que haya que restar el valor del dia presente al de la fecha completa?
En un principio la siguiente funcionaría igual de bien
ActiveSheet.Name = Format(Date, "mmmmyyyy")

(basicamente...) porque OP (tonya) solicita el mes "anterior" a la fecha actual...
"> ... nombrar a la hoja activa con el nombre del mes anterior al que estamos ..."

saludos,
hector.