Trouble navigating Workbooks/Multiple functions in Sub()

[ryanexcelent]

I have declared my variable to make sense of the below at the top. However, once the TemplateFile section has run, I cannot get VBA to get back to Account workbook, navigate to the Records spreadsheet and then select the used range to sort them using the control + shift + down method and control + shift + right.

TemplateFile = Application.GetOpenFilename(, , "Please open the workbook that serves as a blank template for missing data files.")


' Open the file dialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.Title = "Please select a folder to output the results."
diaFolder.AllowMultiSelect = False
diaFolder.Show


output = diaFolder.SelectedItems(1)


Set diaFolder = Nothing








'this section is to sort the data to ensure the loop as accurate data to loop through


Workbooks("Account").Worksheets("Records").Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Worksheets("Records").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Records").AutoFilter.Sort.SortFields.Add Key:=Range _
("A2:A407"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Records").AutoFilter.Sort.SortFields.Add Key:=Range _
("E2:E407"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Records").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply


End With

 

[JLGWhiz]

You created the variable 'output' as the file name selected from the file dialog box, but I don't see where you have used it in the code after it is initialized. If you want to activate that workbook, I think

Workbooks(output).Activate

would probably do it. Then you would need to specify the sheet you want to work with, scince you are using the select and activate method of coding. If you could learn to use direct coding and eliminate all the select and acivate syntax, the code would be much more efficient.