llenar un titulo en exel desde visual basic 6.0

[celex]

Buenas tardes, estoy desarrollando una aplicacion la cual por medio de una consulta los resultados son mostrados en una MSHFlexGrid, despues hay un boton que llama a una rutina de exportar los datos a excel y comienza a escribirlos desde la posicion B2:H32 por tanto me deja un espacio en la parte superior la cual como le puedo agregar un titulo que yo primero genere, una cadena por ejemplo titulo="Informe del mes de Enero 2008" en la celda B1
y que accione la funcion de combinar y centar desde B1:H1

por ejemplo coloque este codigo para probrar y no sale el titulo
Worksheets("Sheet1").Range("B1").Value = "Informe"

[rolano]

Iniciado por celex

Buenas tardes, estoy desarrollando una aplicacion la cual por medio de una consulta los resultados son mostrados en una MSHFlexGrid, despues hay un boton que llama a una rutina de exportar los datos a excel y comienza a escribirlos desde la posicion B2:H32 por tanto me deja un espacio en la parte superior la cual como le puedo agregar un titulo que yo primero genere, una cadena por ejemplo titulo="Informe del mes de Enero 2008" en la celda B1
y que accione la funcion de combinar y centar desde B1:H1

por ejemplo coloque este codigo para probrar y no sale el titulo
Worksheets("Sheet1").Range("B1").Value = "Informe"

[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")

[celex]

refiriendome a como centrar titulos en hojas de excel por medio de una determinada celdas tengo una pregunta, hay manera de que no salga el mensaje de:
PHP]
La seleccion contiene valores de datos multiple. Al combinar en una unica celda se
conservaran solamente los datos del extremo superior izquierdo.

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

[[/PHP]
le damos aceptar y sale el titulo y los datos que se mandaron a exportar

gracias