Copy Existing Sheet, Paste Values from existing workbook into new workbook

[crcline]

Here's a sample of files & code - I've tried to preserve the code so that the original source is footnoted:
1. Script #1 (Attached File) Uses the windows directory to select a file. I'd like this functionality in selecting the file & then the sheet within the file selection
2. Script #2

Sub InsertTBLINE()
'Developed by Casey Cline, 2011.
'Opens source file. Currently path & file name must be manually updated monthly.
Workbooks.Open ("J:\2011 Month End\2011 Reporting\\2011-07\2011-07 Recon_08.04.xlsx")

'copy sheet from another workbook before first tab of Book2
Workbooks("2011-07 Recon_08.04.xlsx").Sheets("TB 07.31.11").Copy After:=Workbooks("Reporting_v1.xlsm").Sheets("Sheet1")
'Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet1"

'close the source workbook without saving any changes
 Workbooks("2011-07 Recon_08.04.xlsx").Close
      
End Sub

Script #3

Sub Link2Value()
   Dim rng As Range
   For Each rng In ActiveSheet.UsedRange.Cells
      If rng.HasFormula Then
         If InStr(rng.Formula, "\[") Then
            rng.Value = rng.Value
         End If
      End If
   Next rng
End Sub