Copy To Main Worksheet From Many Worksheets

I went through your board and found the code below posted My Mr. Tom Urtis.
I tired it and it worked fine except that it needs another workbook.
Can it be changed to work in the same workbook to copy to a sheet named as Main from all other worksheets that I can chose?

Sub ImportDistricts()
'Instructional Message Box
MsgBox "Click OK to access the Open dialog." & vbCrLf & _
"Navigate to the folder path that contains" & vbCrLf & _
"the District workbooks you want to import." & vbCrLf & vbCrLf & _
"When you get inside that folder path," & vbCrLf & _
"use your mouse to select one workbook," & vbCrLf & _
"or use the Ctrl button with your mouse" & vbCrLf & _
"to select as many District workbooks" & vbCrLf & _
"as you want from that same folder path." & vbCrLf & vbCrLf & _ ....................