Visual Basic - Guardar en diferentes hojas de excel

Me enviaron este codigo para guardar un msflexgrip en excel, le cambie unas cosas para adapatarlo a mi caso, como la matriz tiene "nnc" filas y 3 columnas, le puse unos for.....tengo varias preguntas porque no se mucho de visual basic
1.- Quiero que el archivo se guarde SIEMPRE bajo el nombre de datos3 ..¿es posible hacer eso? ¿como?
2.- Ademas me gustaria especificar en que hoja de excel se debe guardar....por ejemplo, guardarlo como datos3 en la hoja 2.
3.- Por ultimo aunque este programa me corre, da un error cuando se cancela y no se por que....Muchas gracias

Private Sub Command1_Click()
Dim MiExcel As Object
Dim guardar As String
'EXPORTAR INFORME A EXCEL'
CommonDialog1.CancelError = True
Set MiExcel = CreateObject("excel.sheet")

For h = 1 To nnc
For j = 1 To 3
MiExcel.ActiveSheet.Cells(h + 1, j + 1).Value = datos3(h, j)
Next j
Next h

'Guardo archivo'
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "Todos los archivos (*.XLS)|*.XLS"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
guardar = CommonDialog1.FileName
MiExcel.SaveAs guardar
MiExcel.Application.Quit
Set MiExcel = Nothing
MsgBox "Se Generó el archivo:" & guardar, vbInformation, "Informe" ' guardar
End Sub