Open The Selected File

Public Sub Populate()
Dim lawSheet As Worksheet
Dim achSheet As Worksheet
Workbooks.Open ("\bankrec recsACHACH.xls")
Set lawSheet = Workbooks("Lawson JE Upload Template.xls").Worksheets("Input")
Set achSheet = Workbooks("ACH.xls").Worksheets("ACH")

to be able to select the "achSheet". The file will need to be selected from T:ACH. This code is over my head and I'm hoping just the beggining can be edited as to not jack up the rest. If I have to paste the code I will. its big but not huge.

I have this that I use on a completely different workbook that lets you select the file, but I don't know how to "make it work" with this application, but the idea of selecting the sheet is what I want.


Dim OpenA As Workbook, OpenB As Workbook
Dim TheFile As String

Set OpenA = ActiveWorkbook

ChDrive "E:"
ChDir "E:QueriesComp Store SalesMicroStrategy Comp Store Reports "

TheFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Select the file and choose open.")
If TheFile = "False" Then
Exit Sub
End If
Workbooks.Open Filename:=TheFile