Hi, please help me make a correct code. I have a list of links in column A, and I need to open all links then save each webpages to pdf. I am using the below code but I can only open 1 link using it by changing the Range to A2 and it doesn't print to pdf. Unfortunately, I cannot download headless chrome as it is restricted.
Sub View_Tech_Recalls()
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate Range("Recall_URL")
ie.StatusBar = False
ie.Toolbar = True
ie.Visible = True
ie.Resizable = True
ie.AddressBar = False
TimeOutWebQuery = 5
TimeOutTime = DateAdd("s", TimeOutWebQuery, Now)
Do Until ie.readyState = 4
DoEvents
If Now > TimeOutTime Then
ie.stop
GoTo ErrorTimeOut
End If
Loop
ie.ExecWB 6, 2
Application.Wait (Now + TimeValue("0:00:03"))
ErrorTimeOut:
Set ie = Nothing
End Sub
Sub View_Tech_Recalls()
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate Range("Recall_URL")
ie.StatusBar = False
ie.Toolbar = True
ie.Visible = True
ie.Resizable = True
ie.AddressBar = False
TimeOutWebQuery = 5
TimeOutTime = DateAdd("s", TimeOutWebQuery, Now)
Do Until ie.readyState = 4
DoEvents
If Now > TimeOutTime Then
ie.stop
GoTo ErrorTimeOut
End If
Loop
ie.ExecWB 6, 2
Application.Wait (Now + TimeValue("0:00:03"))
ErrorTimeOut:
Set ie = Nothing
End Sub