I tried a scroll row and this gets it working after a fashion. A few bugss need to be sorted though.
[vba]
Private Sub ListBox1_Change()
Dim tmp As Long, Rw As Long, DteRng As String
Dim StaffMember As String, ChrtRng As String
'Get name
tmp = ListBox1.ListIndex
With ListBox1
StaffMember = .List(tmp, 1) & " " & .List(tmp, 0)
End With
'Find Row
On Error Resume Next
Rw = Sheets("Fee Earning Stats").Columns(2).Find(StaffMember).Row
If Rw = 0 Then
MsgBox "Name not found"
Exit Sub
End If

tmp = ScrollBar1.Value
'Create text string for range
DteRng = Cells(5 + tmp, 5).Address & ":" & Cells(10 + tmp, 5).Address
ChrtRng = Cells(5 + tmp, Rw).Address & ":" & Cells(10 + tmp, Rw).Address

'Modify data range
ActiveSheet.ChartObjects("Chart 77").Select
ActiveChart.SeriesCollection(2).Formula = "=SERIES(""Non Fee Earning"",'Fee Earning Stats'!" & _
DteRng & ",'Non Fee Earning Stats'!" & ChrtRng & ",2)"
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(""Fee Earning"",'Fee Earning Stats'!" & DteRng & ",'Fee Earning Stats'!" & _
ChrtRng & ",1)"


End Sub
Private Sub ScrollBar1_Change()
Dim tmp As Long, Rw As Long, DteRng As String
Dim StaffMember As String, ChrtRng As String
'Get name
tmp = ListBox1.ListIndex
With ListBox1
StaffMember = .List(tmp, 1) & " " & .List(tmp, 0)
End With
'Find Row
On Error Resume Next
Rw = Sheets("Fee Earning Stats").Columns(2).Find(StaffMember).Row
tmp = ScrollBar1.Value
'Create text string for range
DteRng = Cells(5 + tmp, 5).Address & ":" & Cells(10 + tmp, 5).Address
ChrtRng = Cells(5 + tmp, Rw).Address & ":" & Cells(10 + tmp, Rw).Address

'Modify data range
ActiveSheet.ChartObjects("Chart 77").Select
ActiveChart.SeriesCollection(2).Formula = "=SERIES(""Non Fee Earning"",'Fee Earning Stats'!" & _
DteRng & ",'Non Fee Earning Stats'!" & ChrtRng & ",2)"
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(""Fee Earning"",'Fee Earning Stats'!" & DteRng & ",'Fee Earning Stats'!" & ChrtRng & ",1)"
End Sub
[/vba]