Public Function GetDataFromString(target As Range, sDelimiter As String) As String
If InStr(target.Value2, sDelimiter) > 0 Then
Dim arr
arr = Split(target.Value2, sDelimiter)
GetDataFromString = arr(UBound(arr) - 1)
End If
End Function
Private Sub Workbook_Open()
AutoSaveAllWorkbooks
End SubPublic Sub AutoSaveAllWorkbooks()
Dim wb As Workbook
For Each wb In Application.Workbooks
wb.Save
Set wb = Nothing
Next
Application.OnTime Now + TimeValue("00:00:30"), "AutoSaveAllWorkbooks"
End SubDim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
Dim strUrl as String
strUrl = "http://..........."
IE.Navigate strUrl
Do While IE.busy
Application.Wait 1000
Loop
...............
IE.Quit
set IE = nothing