Hi Abousetta,

Thanks for the great excel file. I was checking it, and it is working. When I tried to copy part of the code that could work. I was getting nowhere. I guess I miss something but no clue. I did copy the below code, but then I was getting error starting from "UpdateURL"

Option Explicit

'Excel user group page
Dim HOMEPAGE   As String
Dim Ready      As Boolean
Dim StopWatch  As Single

'Private Sub txtaddress_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    'LoadPage

'End Sub

Private Sub txtAddress_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    txtAddress.SelStart = 0
    txtAddress.SelLength = 99

End Sub

Private Sub UserForm_Initialize()

    

    HOMEPAGE = "X:\ACL\ACL Netherlands Corporates\Development\Develop\mift\MiftSupportPortal\Image Folder\fondo.jpg"

    UpdateURL
    txtAddress = HOMEPAGE
    LoadPage
    txtAddress.SetFocus

    Ready = True

End Sub

Sub LoadPage()

    WB.Navigate txtAddress.Text

End Sub



Private Sub cmdHome_Click()

    WB.Navigate "X:\SupportPortal\Image Folder\fondo.jpg"

End Sub



Private Sub WB_DownloadBegin()

    StopWatch = Timer

End Sub

Private Sub WB_DownloadComplete()

    StopWatch = Timer - StopWatch


End Sub

Private Sub WB_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    txtAddress = URL

End Sub

Private Sub WB_StatusTextChange(ByVal Text As String)

    lblStatus.Caption = Text

End Sub

Private Sub WB_TitleChange(ByVal Text As String)

    Caption = Text

End Sub
Can you please let me know where I went wrong?

Greetings.