Macro to split data based on the value from specific column

there was no table, so i add one.
because on your original post there is a table.

there is a code in ThisWorkbook, Open event, copy that to your workbook.
there is a code in Module1 copy the whole module to your workbook.
create "job" sheet to your workbook.
and add a button and assigned a sub to it.

I ran the macro on the file you send over. I got debug after created 601 folder on below line. There is no file into 601 folder though.
Below part

Code:

---

'arnelgp
'from macro
Private Sub FilterTable(ByVal strValue As String)
    myWorkbook.Activate
    myListObject.Range.AutoFilter Field:=7, Criteria1:=strValue
End Sub

---

Debug on below line

Code:

---

myWorkbook.Activate

---

http://www.vbaexpress.com/forum/imag...BJRU5ErkJggg==

i also got error when opening the workbook.

try to update the code in ThisWorkbook:

Code:

---

Private Sub Workbook_Open()
Set Module1.myWorkbook = ThisWorkbook
Set Module1.myListObject = ThisWorkbook.Sheets("Data").ListObjects(1)
End Sub

---

then close and re-open the workbook.

Thank you it works, I really appreciate your help.