It seems I fixed most of it. But I can't close the Project. "Block If without End IF" ???
I'm not sure what I need to do
Private Sub OK_Click()
Dim i As Variant
Dim Chosen As Integer
Dim CurList As ListBox
Dim UserForm As frm
Dim LTemp As Variant, LItem As Variant
Dim ActiveSheet As Variant
For i = 0 To ListBox1.ListCount - 1
Sheets("Data Selection").Select
If ListBox1.Selected(i) Then
Worksheets("NON II").Range("F9") = ComboBox1.Text
Worksheets("NON II").Range("AE9") = ComboBox2.Text
'If exit is chosen, exit the procedure.
If Chosen = 0 Then GoTo canceled
frm.Hide
' Set the variable LTemp equal to the array of values
' indicating the selection state of the list box items.
LTemp = CurList.Selected
' Iterate through the loop once for each item in the Organization List box
'LTemp holds the selected organizations
For Each LItem In LTemp
' If the value of the current item is True...
If LItem = True Then
' CurList.List(i) changes org of selected item in report
Worksheets("NON II").Range("F6") = ListBox1.List(i)
'Select report and login
Sheets("NON II").Select
Sheets("NON II") = ActiveSheet.Name
esb_Login (CurrentSheet)
'RetrieveNON_II Range on NONII tab
Sheets("Non II").Select
esb_Retrieve9
'RetrieveExp Range on Exp tab
Sheets("Exp").Select
esb_Retrieve1
'RetrieveBS Range on BS tab
Sheets("BS").Select
esb_Retrieve2
'RetrieveSpread Range on Spread tab
Sheets("Spread").Select
esb_Retrieve3
'RetrieveInterestIncome Range on InterestIncome tab
Sheets("Int_Income").Select
esb_Retrieve4
End If
i = i - 1
Next
' If the Cancel button was chosen, exit procedure.
canceled:
Sheets("NON II").Select
End Sub