Thread: Error message
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Les Stout[_2_] Les Stout[_2_] is offline
external usenet poster
 
Posts: 396
Default Error message

Hello all, i have the code below which i got from this site and it works
great, just if cancel is selected i get an error and i would then like
to give a message asking if they would really like to cancel, but im not
sure where to put it in, could some body please help ?


Sub GetDLoadFromSapStd()

Dim mySavedPath As String
Dim Cancel As Variant
mySavedPath = CurDir

ChDirNet "\\zadad01\sapinter\ZA-TM-RECON\DOWNLOAD"
fileToOpen = Application _
.GetOpenFilename("Text Files (*.csv),*.csv") mySapFile =
fileToOpen
Workbooks.OpenText FileName:=mySapFile
ChDirNet mySavedPath
OptionCheckStd
End If
End Sub


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***