Hi All,
I'm encountering Run time error 75 on the below code. In the excel macro, when the file is not found the below codes run to save the excel workbook,
Dim a
a = MsgBox("Location not Found. Do you want to create this location?", vbCritical + vbYesNo, "Error")
If a = vbYes Then
MkDir "A:\KNITS\Season\" & Season & "\" & SeaYr & "\" & Category
MkDir "F:\KNITS\Season\" & Season & "\" & SeaYr & "\" & Category & "\" & Vndr
ActiveWorkbook.SaveAs "F:\KNITS\Season\" & Season & "\" & SeaYr & "\" & Category & "\" & Vndr & "\" & Fname & ".xls"
Else
End
End If
Fname refers to the excel file I'm saving,
I'm encountering Run time error 75 on the below code. In the excel macro, when the file is not found the below codes run to save the excel workbook,
Dim a
a = MsgBox("Location not Found. Do you want to create this location?", vbCritical + vbYesNo, "Error")
If a = vbYes Then
MkDir "A:\KNITS\Season\" & Season & "\" & SeaYr & "\" & Category
MkDir "F:\KNITS\Season\" & Season & "\" & SeaYr & "\" & Category & "\" & Vndr
ActiveWorkbook.SaveAs "F:\KNITS\Season\" & Season & "\" & SeaYr & "\" & Category & "\" & Vndr & "\" & Fname & ".xls"
Else
End
End If
Fname refers to the excel file I'm saving,