Hi
not quite sure about the order of your code but try
sub foo()
Dim fname
ChDrive "S:"
ChDir "S:\Kingston\FA\Overseas Payments\Overseas Payments
Public\Remittance"
fname = Application.GetOpenFilename()
if fname = false then
fname = "Menu"
end if
Set oWb = Workbooks.Open(fname)

--
Regards
Frank Kabel
Frankfurt, Germany


Edgar wrote:
Hi

I use the following code to open a workbook.

Set oWb = Workbooks.Open(fname)

Where fname is a variable from the following code

ChDrive "s"
ChDir "S:\Kingston\FA\Overseas Payments\Overseas Payments
Public\Remittance"
fname = Application.GetOpenFilename()

I have tried to add a if statement to the first part of
the code so that if the user does not select a file that
they will just load the sheet("Menu") instead of getting
the error message.

If oWb < "" Then
Set oWb = Workbooks.Open(fname)
Else
Worksheets("Menu").Select
End If

But this is coming up with the error that fname variable
has not been set.

Can anyone help?

TIA