MshflexGrid a Excel Ayuda!!

[pachu93]

Perdon por ser tan burro, pero yo hice los cambios que me dijiste y me quedo asi:

Private Sub Command4_Click()
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j
objWorkbook.ActiveSheet.Cells(4 * (i + 1), 1).Value = "Categoria"
objWorkbook.ActiveSheet.Cells(4 * (i + 1) + 1, 1).Value = "Jinete/Amazona"
objWorkbook.ActiveSheet.Cells(4 * (i + 1) + 1, 2).Value = "Caballos"
Next
objExcel.Cells.Select
objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub

Y cuando presiono el boton me aparece un excel con lo siguiente:

Categoria
Jinete/Amazona Caballos


Categoria
Jinete/Amazona Caballos


Categoria
Jinete/Amazona Caballos


Categoria
Jinete/Amazona Caballos


Categoria
Jinete/Amazona Caballos


Creo que lo que estoy haciendo mal es que noe stoy haciendo referencia al MSHFlexGrid, como hago?