Try GetOpenFilename

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName < False Then
Set wb = Workbooks.Open(FName, ReadOnly:=True)
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Sam" wrote in message ...
Is there a way to open a file as ReadOnly using
Application.Dialog(xlDialogOpen).Show?

I want to write re-usable code to allow another end-user to open an Excel
workbook as ReadOnly without first requiring someone else on the network
first having it open.

I would use Workbooks.Open myPath & myFile & "xls" but I don't know what
file the end user will want to open.

Any help will be appreciated.

Thanks,

Sam