I'm looking to create folders on the fly with the folderpaths being based on defined variables.
Could someone please have a look at my code below and tell me where Im going wrong?
MainPath = "Z:\Mike\Retail Sept 2011\Macro\Tony Work\"
'***Copy Data From DumpFile***
Windows("Sample Data Dump.xls").Activate
Selection.AutoFilter Field:=1, Criteria1:=ParentNSC
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'***Paste Date Into Template***
Workbooks.Open Filename:=MainPath & "COINS Template.xls"
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***Define Region & Branch***
Region = Range("B2")
Branch = Range("C2")
MkDir MainPath & "Outputs\" & "Region" & "\" & "Banch"
Bookmarks