Sub Scrape_sheet1_btn_Click()
Dim LResponse, I As Integer
Dim a, b As String

LResponse = MsgBox("You must list the URLs you are planning to scrape in sheet1 and create a blank sheet2. Once the scrape macro starts, each column is represented by individual URLs from sheet1." & Chr(13) & Chr(13) & "Do you wish to continue?", vbYesNo, "Continue")
If LResponse = vbYes Then

Sub macro1()
'Dim frm As UserForm
Dim I As Integer
'To could be as many as you want. I only put 25 as a limit.
For I = 1 To 25
Dim a As String
a = Sheet1.Cells(I, 1).Value
Dim b As String
b = ActiveSheet.Cells(I, 2).Value
'get URLs
'option after "URL;" & a
    'UserForm1.txtbox1.value
With ActiveWorkbook.ActiveSheet.QueryTables.Add(Connection:="URL;"

Set rst1 = db.OpenRecordset("qry_selected_email_distinct", dbOpenDynaset)

[TempVars]![username]

objMail.Attachments.Add "c:\location.zip"

Private Sub btn_send_Click()

    Dim olApp As Object
    Dim objMail As Object
    Dim Issue As String
    strIssue = Me.txt_body

Function Log_in()
On Error GoTo Log_in_Err

    With CodeContextObject
        If (Not IsNull(.cmb_user)) Then
            TempVars.Add "UserName", .cmb_user
            DoCmd.Close , ""
            DoCmd.OpenForm "frm_tools", acNormal, "", "", , acNormal
        End If
    End With

Forms(frm).PopUp = True

Private Sub Form_Load()
Me.RecordSelectors = False
Me.NavigationButtons = False
Me.ScrollBars = 0
[Forms]![frm_Import].DefaultView = 5
[Forms]![frm_Import].PopUp = True
[Forms]![frm_Import].SplitFormOrientation = 1
End Sub