Error 438

Public Sub Maxey()
Dim objXLApp                        As Object
  On Error Resume Next
'*
'** If we already have an instance of
'** Excel open, use it.
'*
  Set objXLApp = GetObject(, "Excel.Application") 'Uses an existing instance.
  If Err.Numnber <> 0 Then
    Call MsgBox("Existing instance fails" & vbCrLf & _
                "Error number: " & Err.Number & vbCrLf & _
                Err.Description, _
                vbInformation, _
                "Existing")
'*
'** No exxisting instance of Excel, so
'** create one.
'*
  Set objXLApp = CreateObject("Excel.Application") 'Creates instance.
    If Err.Numnber <> 0 Then
    Call MsgBox("New instance fails" & vbCrLf & _
                "Error number: " & Err.Number & vbCrLf & _
                Err.Description, _
                vbInformation, _
                "New")
    End If
 End If
 On Error GoTo 0
End Sub 'Maxey

Option Explicit
 
Public gobjWordApp              As Object
Public gobjWordDoc              As Object
 
Public gstrErrMsg               As String
 
Public gwdApp                   As Word.Application
Public gwdDoc                   As Word.Document

Option Explicit
Public Sub StartWordDoc()
Dim intE1                       As Integer
Dim objWdApp                    As Object
Dim strE1                       As String
'*
'** Create a new Word document using
'** "late binding" (for some reason "early
'** binding doesn't seem to work).
'** Word may or may not currently be active,
'** so we either use GetObject (existing)
'** or CreateObject (new).
'*
  On Error Resume Next
  Set objWdApp = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
'*
'** No existing Word application.
'** Record the error in case all methods fail.
'*
    intE1 = Err.Number
    strE1 = Err.Description
'*
'** Try to instance a new Word application.
'*
    Err.Clear
    Set objWdApp = CreateObject("Word.Application")
    If Err.Number <> 0 Then
'*
'** Can't use existing or create new!
'*
      gstrErrMsg = "Cannot create a Word document" & vbCrLf & _
                   """Get"" resulted in the following error" & vbCrLf & _
                   intE1 & vbCrLf & _
                   strE1 & vbCrLf & _
                   """Create"" resulted in the following error" & vbCrLf & _
                   Err.Number & vbCrLf & _
                   Err.Description
      Call AbortMeNow
    End If 'CreateObject
  End If 'GetObject
  On Error GoTo 0
'*
'** We have an instance of Word.
'** As "early binding has advantages.
'** use "Set" to achieve those advantages.
'*
'  Set gwdApp = objWdApp
'  Set objWdApp = Nothing
'*
'** Create a new Word document.
'*
'  gwdApp.Documents.Add
  objWdApp.Visible = True
  Set gwdDoc = objWdApp.Documents.Add
End Sub 'StartWordDoc