Cambar nombres de las hojas

Te mando mi solución y sigue estos pasos:

-Escribe los 31 nombres (o los que sean) desde B1, C1,... en la hoja principal. (El nombre de esta hoja es: principal)

Después ejecuta esta macro y todo listo.

Sub ejemplo()
'luismondelo
columna = 2
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "principal" Then
hoja.Name = Sheets("principal").Cells(1, columna).Value
columna = columna + 1
End If
Next
End Sub

Hola:

Sigo teniendo problemas ya que no se como se ejecuta un marco.

Me lo podría explicar

-En tu excel pulsa ALT F11

- Se abrirá el editor de visual basic

-Pulsa en el menú superior en insertar-----módulo

-Se abrirá una parte blanca en la parte derecha de la pantalla

-Allí tienes que copiar literalmente la macro que te envié

-Después vuelves a excel y pulsas ALT F8

-Se abrirá el browse de las macros y aparecerá el nombre de nuestra macro, es decir: EJEMPLO

-Posiciónate encima y pulsa ejecutar

Hola lo he hecho tal como me dices, pero cuando le doy a ejecutar me sale este mensaje

Se a producido un error "9" en el tiempo de ejecución

Subidince fuera de rango.

Me da la opción de depurar u me subraya la linea que te he puesto en negrita

Sub ejemplo()
'luismondelo
columna = 2
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "principal" Then
hoja.Name = Sheets("principal").Cells(1, columna).Value
columna = columna + 1
End If
Next
End Sub

Aparte la pagina principal necesitaría que se llamara previsión en lugar de principal.

Un saludo y mil gracias.