hello , i'm using same code to login in 10 multiplet pages like this
If CheckBox10.Value = True Then
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = 1
ie.Navigate "https://1"
Do While ie.Busy
Loop
ie.Document.all.Item("ssousername").Value =.TextBox11.Text
Do While ie.Busy
Loop
ie.Document.all.Item("password").Value = .TextBox12.Text
SendKeys "{ENTER}", True
Do While ie.Busy
Loop
ElseIf CheckBox11.Value = True Then
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = 1
ie.Navigate "https://2"
Do While ie.Busy
Loop
ie.Document.all.Item("ssousername").Value =.TextBox11.Text
Do While ie.Busy
Loop
ie.Document.all.Item("password").Value = .TextBox12.Text
SendKeys "{ENTER}", True
Do While ie.Busy
Loop
etc
ie.Navigate "https://3"
ie.Navigate "https://4"
and i'd like to know if is a simple way like "cases" .thanks