Launch list of applications & webpages via VBA - Run-time error '53': File not found

[tanker1]

Hello everyone,

I've referred to MrExcel countless times over the years to learn Excel and VBA, so firstly thanks to everyone who contributes to make this such an excellent resource.

I've now encountered an error which I'm not able to find a solution for. I've been using this code for months to launch a list of applications and webpages from Excel:

<code>VBA.Shell File_Path, vbMinimizedNoFocus

Sub Read_Application_List()
Dim Row1 As Integer
Dim File_Path As String
Row1 = 1
File_Path = Sheets("App Launcher").Cells(Row1, 1)

While File_Path <> ""
    Launch_Apps_Folders File_Path
    Row1 = Row1 + 1
    File_Path = Sheets("App Launcher").Cells(Row1, 1)
Wend

End Sub

Sub Launch_Apps_Folders(File_Path As String)
Dim Launch_App As Object
Set Launch_App = CreateObject("Shell.Application")

On Error GoTo Launch1:
VBA.Shell File_Path, vbMinimizedNoFocus
GoTo Exit1

Launch1:

Launch_App.Open (File_Path)
Exit1:
End Sub</code>

For the past two weeks, the macro launches all applications but when it reaches a webpage it throws this error - Run-time error '53': File not found
It highlights this line:

<code>VBA.Shell File_Path, vbMinimizedNoFocus</code>

Strangely, the file works flawlessly on my colleagues' computers and successfully launches all webpages and applications.

This problem began some weeks ago, when my computer was switched off directly without shutting down. Since then this macro has been misbehaving, and a couple of other web automation macros that I wrote have also been misbehaving at this step with error 'Object Required':

<code>

Dim el As Object 
Do 
Set el = Nothing 
On Error Resume Next 
Set el = objIE.Document.getElementById("abcfilter") 
On Error GoTo 0 
DoEvents 
Loop While el Is Nothing<code>

</code></code> The other macros work fine on other PCs.

What could be causing this and how can I fix this? Please help.