Does anyone know how to make the file name show up in the open portion of the
dialog box?

When I use the command:
Application.Dialogs(xlDialogFindFile).Show
The dialog box shows up, but when you browse and find a file, the file name
does not show up in the open box below. Although it doesn't cause a problem
if you just hit the open button, it caused confussion with a friend of mine.

I found an example on the web for saveas:
Dim ck As Boolean
If newName = "" Then
str1 = "Enter New File Name Here"
Else
str1 = newName
End If
ck = Application.Dialogs(xlDialogSaveAs).Show(str1)
If ck = True Then
newName = ActiveWorkbook.Name
End If

and this one works good, but when I replace the saveas with findfile I get
an error. Any suggestions?
Thanks,
Sly