Thanks Bob,
I'm a bit of a novice i'm afraid, I need to add the following filter to the code below.
Filter...
[Attendance Type]="FU" And [Clinical Diagnosis]>"" Or [Attendance Type]="FU+PROC" And [Clinical Diagnosis]>""
Date filter vba.....
Private Sub DateReportDiagFU_Click()
On Error...