Library Not Found error -2147319779

 Excel is referenced to the ms Excel dll library. When you use new version of ms office, did you change the reference to the higher version of ms Excel dll?
 If you did not (and you need to run it with old one), did you tried regsrv to register it?

Sorry...I'm limited on my technical skills here.  I would need a little bit of instruction on how to do both of the things you suggested.  In my References, Microsoft Excel 11.0 is checked.  I don't see anything higher than 11.0.

Regarding the first point: do you work with Excel 2007? if that's the case Microsoft Excel 12.0 should be checked.
And regarding the second point see: https://www.experts-exchange.com/questions/21020348/What-does-Regsrv32-do.html

It's Excel 2003.

Okay I read through the post you linked to...however, I don't quite understand what I need to do in order to regsrv it.  Is there a certain dll I'm trying to register to fix my issue?

Here is one work around : on line 5 and any similar ones change code to:

CreateObject("Excel.Application.11")

more ideas are coming.........

look what I found for you: https://www.experts-exchange.com/questions/22532916/Automation-Error-Library-not-registered.html

Thank you...we are clearly onto something here.  I did the late binding and it ran with no issues.  However, I have another one that is similar.  I made the late binding adjustment and it runs and gets stuck on the "With Selection" line.  I get the same Automation error...library not found.

On a side note, what is the crux of my issue?  I can't quite wrap my head around what might have changed to cause the issue in the first place.  Thanks for all your help!

Function FormatNotes()

'Formats Excel file, adding filter and re-sizing columns
   
   
   Dim objExcel As Object
   Dim objExcelbook As Object
   Dim objExcelSheet As Object
   Dim objWindow As Object
   
   
   Set objExcel = CreateObject("Excel.Application")
   Set objExcelbook = objExcel.Workbooks.Open("P:\Sales_Dept\reports\NotesHist.xls")
   Set objExcelSheet = objExcel.ActiveSheet
   Set objWindow = objExcel.ActiveWindow
   
   

    objExcel.Visible = False
    objExcel.Cells.Select
    objExcelSheet.Columns.AutoFit
    objExcelSheet.Columns("F:F").Select
    objExcelSheet.Columns("F:F").ColumnWidth = 40
    objExcelSheet.Columns("G:G").Select
    objExcelSheet.Columns("G:G").ColumnWidth = 50
    objWindow.ScrollColumn = 6
    objWindow.ScrollColumn = 5
    objWindow.ScrollColumn = 4
    objWindow.ScrollColumn = 3
    objWindow.ScrollColumn = 2
    objWindow.ScrollColumn = 1
    objExcel.Cells.Select
    With Selection
        objExcelSheet.Cells.HorizontalAlignment = xlLeft
        objExcelSheet.Cells.VerticalAlignment = xlTop
        objExcelSheet.Cells.WrapText = True
        objExcelSheet.Cells.Orientation = 0
        objExcelSheet.Cells.AddIndent = False
        objExcelSheet.Cells.IndentLevel = 0
        objExcelSheet.Cells.ShrinkToFit = False
        objExcelSheet.Cells.ReadingOrder = xlContext
        objExcelSheet.Cells.MergeCells = False
    End With
    
    objExcel.Cells.Select
    objExcelSheet.Rows.AutoFit
    
    objExcel.Cells.Select
    objExcel.Selection.AutoFilter
    
    objExcel.ActiveWorkbook.Save
    objExcel.ActiveWorkbook.Close
   
        
   Set objExcelSheet = Nothing
   Set objExcelbook = Nothing
   Set objExcel = Nothing
   

    
End Function

Select allOpen in new window

Sorry for the delay.  I had to fight some other fires yesterday.  It looks like our IT guys did in fact  install the converter pack for Microsoft Office 2007.  Most of our machines are still running 2003 but people get 2007 attachments and files sent to them all the time.  So I guess they wanted everyone to have that tool.

So the late binding idea worked.  I had to use a variable for the 'With Selection' issue.  Working code attached...thank you!

Function FormatNotes()

'Formats Excel file, adding filter and re-sizing columns
   
   
   Dim objExcel As Object
   Dim objExcelbook As Object
   Dim objExcelSheet As Object
   Dim objWindow As Object
   Dim objSel As Object
   
   
   Set objExcel = CreateObject("Excel.Application")
   Set objExcelbook = objExcel.Workbooks.Open("P:\Sales_Dept\reports\NotesHist.xls")
   Set objExcelSheet = objExcel.ActiveSheet
   Set objWindow = objExcel.ActiveWindow
   Set objSel = objExcel.ActiveCell
   
   

    objExcel.Visible = False
    objExcel.Cells.Select
    objExcelSheet.Columns.AutoFit
    objExcelSheet.Columns("F:F").Select
    objExcelSheet.Columns("F:F").ColumnWidth = 40
    objExcelSheet.Columns("G:G").Select
    objExcelSheet.Columns("G:G").ColumnWidth = 50
    objWindow.ScrollColumn = 6
    objWindow.ScrollColumn = 5
    objWindow.ScrollColumn = 4
    objWindow.ScrollColumn = 3
    objWindow.ScrollColumn = 2
    objWindow.ScrollColumn = 1
    objExcel.Cells.Select
    With objSel
        objExcelSheet.Cells.HorizontalAlignment = xlLeft
        objExcelSheet.Cells.VerticalAlignment = xlTop
        objExcelSheet.Cells.WrapText = True
        objExcelSheet.Cells.Orientation = 0
        objExcelSheet.Cells.AddIndent = False
        objExcelSheet.Cells.IndentLevel = 0
        objExcelSheet.Cells.ShrinkToFit = False
        objExcelSheet.Cells.ReadingOrder = xlContext
        objExcelSheet.Cells.MergeCells = False
    End With
    
    objExcel.Cells.Select
    objExcelSheet.Rows.AutoFit
    
    objExcel.Cells.Select
    objExcel.Selection.AutoFilter
    
    objExcel.ActiveWorkbook.Save
    objExcel.ActiveWorkbook.Close
        
   
   Set objSel = Nothing
   Set objWindow = Nothing
   Set objExcelSheet = Nothing
   Set objExcelbook = Nothing
   Set objExcel = Nothing
   

    
End Function

Select allOpen in new window