Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Still can't figure this out... assume that all variables are properly
declared. When I comment ( ' ) out the on-error part, the code operates properly, and if there is an error it will highlight the MkDir foldername part. But when I make the on error codes active again, it will execute msgbox and exit sub parts whether or not an error occurs... What am I doing wrong? SaveFile = Workbooks("worklist_detail_format_custom.xls").She ets ("sheet1").Range("D20") MyPath = SaveFile 'Add a slash at the end if the user forget it If Right(MyPath, 1) < "\" Then MyPath = MyPath & "\" End If 'Create folder for the new files foldername = MyPath & Format(Now, "mm-dd-yyyy") & "\" On Error Resume Next MsgBox "The 'Save To Directory' in Worklist Detail Format Does Not Exist" _ & vbNewLine & "Or A File With Today's Date Already Exists In the Directory", vbOKOnly Exit Sub On Error GoTo 0 MkDir foldername |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Error when cell A1 is not active and xlInsideVertical border formatthrowing error 1004 | Excel Programming | |||
Error handling error # 1004 Run-time error | Excel Programming | |||
Error Handling - On Error GoTo doesn't trap error successfully | Excel Programming | |||
Form Err.Raise error not trapped by entry procedure error handler | Excel Programming | |||
Automation Error, Unknown Error. Error value - 440 | Excel Programming |