I was given this procedure, which works well. Another opportunity has presented itself.
One of the files that I will be using is saved as as .cvs. There is no way the data center will change their routine. When that occurs I need to change the extension to be .xls
Private Sub cmdCollectData_Click()
On Error GoTo Err_CollectData_Click
Dim fileName As String
Dim result As Integer
.Title = "Select File"
.Filters.Add "Excel Files", "*.xls*"
.InitialFileName = "C:\"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems(1))