Input Box to change Sheet Names used in VBA Code

[surePac]

I have a couple macros that pull in two sheets to a single workbook from different workbooks in a file and compare the two sheets row by row for differences. The problem is that whenever I'm comparing new pairs of sheets i have to change all the sheet references in the vba code. Is there a way to add an input or message box asking for the two new names of the sheets? For example one box would pop up and say, "Please enter the original sheet name" and another that would pop up and say, "Please enter the new sheet name." I think I should be using something like

 Dim North_America_Old as Variant

and

North_America_Old = Application.Inputbox("Enter Old Sheet Name")

. I'm still not sure how associate the input box to the code representing the original sheet or the sheet i want to compare with the original sheet. Addidtionally, is there a way to combine theses macros to as few as possible? Thank you very much for all of your help!

Sub GetSourceSheets()
'This macro will loop through excel files
'in a location and copy the their worksheets into the current workbook.
'Instructions: Replace the file path, which starts on the 8th line, with a file path to the folder
'that contains the two vendor site lists that you wish to compare.
'!!!! Do not for get to place the back slash (\) at the end of the file path. !!!! End of Instructions
Application.DisplayAlerts = False
Path = "C:\Users\turner\Desktop\Excel_Con\Kevin\NA_Vendor\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=ThisWorkbook.Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
Loop
Application.DisplayAlerts = True
End Sub

Sub RunCompare()
'Instructions: Replace North_American_Old with the original vendor site list sheet name and
'replace North_American_New with the new vendor site list sheet name you wish
'to compare to the original vendor site list sheet.
'!!!!! Keep sheet names enclosed in quotations !!!! End of Instructions
Call compareSheets("North_America_Old", "North_America_New")

End Sub


Sub compareSheets(shtNorth_America_Old As String, shtNorth_America_New As String)
'Instructions: Replace North_American_Old with the original vendor site list sheet name and
'replace North_American_New with the new vendor site list sheet name you wish
'to compare to the original vendor site list sheet.
'!!!!! Keep sheet names enclosed in quotations and remember to keep "sht" at the beginning of the sheet name!!!!
'End of Instructions
Dim result As Variant
Dim mycell As Range
Dim mydiffs As Integer

'For each cell in sheet2 that is not the same in Sheet1, color it yellow
For Each mycell In ActiveWorkbook.Worksheets(shtNorth_America_New).UsedRange
    If Not mycell.Value = ActiveWorkbook.Worksheets(shtNorth_America_Old).Cells(mycell.Row, mycell.Column).Value Then
        
        mycell.Interior.Color = vbRed
        mydiffs = mydiffs + 1
        
    End If
Next

'Display a message box to demonstrate the differences
MsgBox mydiffs & " differences found", vbInformation

ActiveWorkbook.Sheets(shtNorth_America_New).Select

End Sub

[nathansav]

set wsOld  = thisworkbook.worksheets(inputbox("Enter Old"))
set wsNew  = thisworkbook.worksheets(inputbox("Enter New"))

[surePac]

My apologies for a simple question but in which macro, RunCompare or compareSheets, should I add this code? After trying to incorporate the code I keep getting a run time error 9 at this line

For Each mycell In ActiveWorkbook.Worksheets(shtNorth_America_New).UsedRange

. Thanks again.

[nathansav]

is that subscript out of range? Do you have a sheet called what you have entered?

I presume in this one, without knowing what you are doing fully.

Sub RunCompare()
'Instructions: Replace North_American_Old with the original vendor site list sheet name and
'replace North_American_New with the new vendor site list sheet name you wish
'to compare to the original vendor site list sheet.
'!!!!! Keep sheet names enclosed in quotations !!!! End of Instructions
Call compareSheets(HERE, AND HERE)

End Sub