Macros

Probablemente el código que tienes hace referencia a la hoja1, por lo cual cada vez que la ejecutas la macro se dirige a ella.
Sheets("Hoja1").Select
Este mensaje:
(Algunas macros pueden contener virus. Generalmente es más fácil deshabilitarlas, pero si las macros son de confianza y las deshabilita puede perder la funcionalidad)
Se refiere el nivel de seguridad que tengas habilitado en tu computador (este es el nivel medio), esta se encuentra en un botón de la barra de Visual Basic de excel. Existen 4 niveles el Bajo que habilita cualquier macro sin preguntar, el medio que pregunta si la habilitas o no, el alto que habita las macros Firmadas con certificado digital, y muy alto que deshabilita todas las macros.
Una solución podría ser :
Sub Macro1()
Range("B2:B4").Select ' rango de datos horizontales
Selection.Copy
Range("C6").Select ' rango conde los pegas
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial" ' formatos
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True ' negrita
End Sub
Te dejo mi correo para cualquier consulta :
[email protected]
Pd. Solo estoy disponible hasta este viernes 30-01-09
saludos

Te lo mando por correo adjuntandote lo que hecho hasta ahora porque me sale un error.
"se ha producido un error 9 en el tiempo de ejecución . Subíndice fuera del intervalo"

No he recibido ningún correo..

Mi dirección es (xxxxxx) Te lo acabo de mandar ahora mismo.
Espero a verme explicado bien.
Muchas Gracias.