llenar un titulo en exel desde visual basic 6.0

[rolano]

Sub Centrar()
Worksheets("Hoja1").Range("B1").Value = "Informe"
Range("B1:H1").Select
With Selection
.HorizontalAlignment = xlCenter
End With
Selection.Merge
End Sub

Sub Centrar()
Worksheets("Sheet").Range("B1").Value = "Informe"
Range("B1:H1").Select
With Selection
.HorizontalAlignment = xlCenter
End With
Selection.Merge
End Sub


si estas trajando con excel en ingles ("Sheet1"), en castellano ("Hoja1")