hi
where would i add in this code to further split each sheet by column E before saving book
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = "M:\all\FI Payments\Single Participant Payment Worksheets\split file 3\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
Select Case xWs.Name
Case "All Payments"
Case Else
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
End Select
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Complete"
End Sub
where would i add in this code to further split each sheet by column E before saving book
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = "M:\all\FI Payments\Single Participant Payment Worksheets\split file 3\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
Select Case xWs.Name
Case "All Payments"
Case Else
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
End Select
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Complete"
End Sub