Freedom Computers

Open a File (DIR)

ChDir "C:\Users\Mike\Documents\BEEKEEPING\" 'This will set the search to the folder in quesion

FIRSTFILE = Application.GetOpenFilename("excel files(*.*),**", , "Select the FILE for checking")
If FIRSTFILE = "False" Then Exit Sub
Workbooks.Open Filename:=FIRSTFILE
Cells(1, 1).Select


EXCEL