Run-time error '424': Object required Excel VBA when using company website - excel

Question

Here i have given a dummy website, I'm using the below code to write something on the cell but i'm getting error "Run-time error '424': Object required".
I tried Facebook and it was working for me, Can this be resolved, I'm new to this VBA if someone can help me it will be very helpful.
Sub Test1()
Dim IE As Object
Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
IE.Visible = True
IE.navigate "https://company.com"
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
IE.document.getElementById("WD0367").Value = "A-1234"
End Sub
Tried using the above code and i was able to login to company website but information is not getting filled up and getting this error - Run-time error '424': Object required

Answer 1

The code worked in excel2007 and windows10. Don't work in windows 11
'declare inside a module in Modules
Public ie As SHDocVw.InternetExplorer
'this function is in a sheet's module
Public Function example(Url As String) As String
Dim objElement As Object
example = vbNullString
If ie Is Nothing Then
Set ie = CreateObject("InternetExplorer.Application")
End If
If ie Is Nothing Then Exit Function
ie.Navigate Url
Do While ie.Busy = True Or ie.ReadyState <> 4
DoEvents
'Application.Wait DateAdd("s", 1, Now)
Loop
If ie.LocationURL = Url Then 'instr(1,ie.LocationURL, Url) > 0 Then
Set objElement = ie.Document.all("username")
objElement.Value = Range("CC_USERNAME").Value2
Set objElement = ie.Document.all("password")
objElement.Value = SHEET_CODENAME.TextBox1.Value
ie.Document.forms(0).submit
Do While ie.Busy = True Or ie.ReadyState <> 4
DoEvents
Loop
'......YOUR CODE HERE
'......
example = ie.LocationURL
End If
Set objElement = Nothing
End Function
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not (ie Is Nothing) Then
ie.Quit
Set ie = Nothing
End If
End Sub