AlasdairWalmsley

Option Explicit
Sub Split_Excercise()
    Dim wsData As Worksheet, wsNames As Worksheet, wsFilter As Worksheet
    Dim Datarng As Range, FilterRange As Range
    Dim rowcount As Long
    Dim FilterCol As Variant
    
    On Error GoTo progend
    
'******************************************************************************************************