Hola.
Necesito una macros que de la hoja 1, cambie los nombre de las próximas hojas, según la columna A y que los datos de la fila 1 se copien en la hoja según el nombre de la hoja.
Ejemplo:
Celda A1 es el nombre de la hoja 2, y los datos de la fila B1:E1 deben ir en esa hoja, pero en la fila A3:D3
Celda A2 es el nombre de la hoja 3, y los datos de la fila B2:E2 deben ir en esa hoja, pero en la fila A3:D3
Envío una muestra, ya que son mas de 2.000 columnas.
Gracias desde ya.

Sub ActualizarHojas()
Application.ScreenUpdating = False
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   Range("B" & x & ":E" & x).Copy
   Sheets(Range("A" & x).Value).Range("A3:D3").PasteSpecial xlValues
Next
Application.CutCopyMode = False
End Sub

 

gracias