Excel - Make macro work for multiple files?

[Fizziii]

I have the following code that I would like to change. I initially wrote this to work with a specific couple of files, and I'm finding that I need to have it be able to work for multiple files for both the dnc/ccl lists. I've never been good at code that allows you to select files from an open dialog. Can someone help me with this, either with sample code for selecting files, or by tweaking the below?

Sub Cleanup()
Dim sTmpEmail As String 'Email address we're checking
Dim iDNClist As Integer 'Loop counter for Do Not Call List
Dim iCustList As Integer 'Loop coutner for ColoradoCustomers spreadsheet
Dim dnc As Worksheet 'Do Not Call worksheet
Dim ccl As Worksheet 'Customer list worksheet
Set dnc = Workbooks("DoNotMailBook.xlsm").Worksheets("DoNotMailSheet")
Set ccl = Workbooks("Customer ListBook.xlsx").Worksheets("CustomerListSheet")
Dim dncS As Range 'Do Not Call Cell A1
Dim cclS As Range 'Customer List cell A1
Set dncS = Workbooks("DoNotMailBook.xlsm").Worksheets("DoNotMailSheet").Range("A1")
Set cclS = Workbooks("Customer ListBook.xlsx").Worksheets("CustomerListSheet").Range("A1")
Dim dncC As Integer 'Do Not Call last row
Dim cclC As Integer 'Customer List last row

dncC = dnc.Range("A65536").End(xlUp).Row
cclC = ccl.Range("A65536").End(xlUp).Row
Debug.Print dncC
Debug.Print cclC

'dnc.Range("A1").Font.Bold = False
'ccl.Range("A1").Font.Bold = False

Application.ScreenUpdating = False
For iDNClist = 1 To dncC
    sTmpEmail = dncS.Offset(iDNClist, 0).Value
    For iCustList = 1 To cclC
        If sTmpEmail = cclS.Offset(iCustList, 0).Value Then
            cclS.Offset(iCustList, 0).EntireRow.Delete
            cclC = cclC - 1
        Else
        End If
    Next iCustList
Next iDNClist
Application.ScreenUpdating = True

End Sub

[Vanquish2888]

If you only want to open a single file, you can use:

FileLocation = Application.GetOpenFilename("Excel Files,*.xls", 1, "Select a file", , False)

This simply returns a String of the path to the file, to open the file you must use:

Application.Workbooks.Open (FileLocation)

[Fizziii]

Thank you for that. I will see what that can do for me, but I'm looking for more than a single file... Is there a way to make "FileLocation" an array and contain multiple paths?

Ultimately I want to be able to reference multiple files (most likely in a loop). What my code does is remove information contained on 1 list from another list. Lately, I've been finding that I need to remove data on multiple lists from multiple other lists.

[westconn1]

filelocation is always an array, unless cancel is clicked, then false

for each myfile in filelocation
' do stuff
next

to select multiple files the last parameter of getopenfilename must be passed as true

[Fizziii]

Thank you. I will look into this in a little bit and then mark resolved if it's resolved.