VBA to split document into separate workbooks

Hello,

I've often read numerous threads for help on here but this is my first post as I was not able to find a solution to this.

I would like a macro that based on cell value copy the entire row onto a new workbook.

I have this macro that I have been using but I would like it to now split into separate workbooks instead of sheets. Also if possible have the unique identifier changed from column A to column F. Thanks in advance!

Option Explicit
Sub DivisionalSplit()
Dim wsAll As Worksheet
Dim wsCrit As Worksheet
Dim wsNew As Worksheet
Dim LastRow As Long
Dim LastRowCrit As Long
Dim I As Long

Set wsAll = Worksheets("Detail")

LastRow = wsAll.Range("A" & Rows.Count).End(xlUp).Row

Set wsCrit = Worksheets.Add


wsAll.Range("A1:A" & LastRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsCrit.Range("A1"), Unique:=True

LastRowCrit = wsCrit.Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To LastRowCrit

Set wsNew = Worksheets.Add
wsNew.Name = wsCrit.Range("A2")
wsAll.Rows("1:" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wsCrit.Range("A1:A2"), _
CopyToRange:=wsNew.Range("A1"), Unique:=False
wsCrit.Rows(2).Delete

Next I

Application.DisplayAlerts = False
wsCrit.Delete
Application.DisplayAlerts = True

End Sub

Hey MatrixMan,

Thanks for the help. Not quite working. It looks like it runs but it does not do anything.

Thanks so much this works great.