error entre visual y excel

tengo un error de automatizacion entre una aplicacion de
visual basic y excel... lo que hace crea un objeto excel e
intenta escribir en ese objeto activo, pero me arroja el
siguiente error "error '-2147417848 (80010108)' en tiempo
de ejecucion: error de automatizacion", favor si alguien
puede ayudar se lo agradeceria bastante

'' lo declaro asi
Private mobjExcel As Excel.Application


'' esto uso para escribir excel
Private Sub cmdOpenExcel_Click()
f = 1
fl = 1
txtnom.Enabled = True
Set mobjExcel = New Excel.Application
Dim objWorkbook As Excel.Workbook
mobjExcel.Visible = True
Set objWorkbook = mobjExcel.Workbooks.Add
Set objWorkbook = Nothing
Dim objExcelSheet As Excel.Worksheet
Dim lngTempCounter As Long
Set objExcelSheet = mobjExcel.ActiveWorkbook.ActiveSheet

With objExcelSheet
.Name = "Reporte del dia"
.Cells(1, 1) = "vendedor"
.Cells(1, 2) = "codigo"
.Cells(1, 3) = "fecha proxima"
End With

End Sub

gracias