OptionExplicitSubcreateFolder()OnErrorResumeNext'createfolderwithvbaVBA.MkDir("D:\Excel\VBA_Example")EndSub