Dim my_FileName As Variant
my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
If my_FileName <> False Then
Workbooks.Open Filename:=my_FileName
Dim xActiveSheet As Worksheet
Set xActiveSheet = ThisWorkbook.ActiveSheet
Dim NewSheet As...