File Loading Problem

  • Thread starter Thread starter Jason Hancock
  • Start date Start date
J

Jason Hancock

I have encountered an issue while trying to load a file using a macro.
I have used the code below, however, it always gives the "If" statement
regardless of whether the user selects a file and clicks open, double
clicks a file, or clicks cancel. I am trying to run the "If" statement
only if they click cancel. Any help would be greatly appreciated.
Thanks.

If UF <> "" Then

MsgBox "No projection forms selected for Angie. You must add
them manually later."

Else

Workbooks.Open Filename:=UF

Set wbUF = Workbooks.Open(Filename:=UF)
UFFN = wbUF.Name

Sheets("Angie").Select
Sheets("Angie").Copy After:=Workbooks("Projection
Summary.xls").Sheets("Summary")
Windows(UFFN).Activate
ActiveWindow.Close
Windows("Projection Summary").Activate

End If


*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!
 
You are not showing where UF was defined. Initially it is empy, but
suspect that it is preceeded by something like this:

UF = Application.Dialogs(xlDialogOpen).Show

If the user selected the Cancel button or hit the Esc key, then UF wil
be False, not null.

I suggest replacing the current:

If UF <> "" then ...

with the following:

If UF <> False then ..
 
Back
Top