Hi


I am using Jack D's code to print individual resource charts (copied below). However I want to be able to filter on resource that belongs to a particular group only. How do I do this:

Sub PrintResourceCharts()
'This macro will pring a gantt chart for every resource in the project
'It will automatically adjust the timescale to show all of the resource's activities
'Copyright Jack Dahlgren, Feb. 2002
Dim r As Resource
Dim mystring As String
ViewApply Name:="&Task Sheet"
For Each r In ActiveProject.Resources
If r.Assignments.Count > 0 Then
mystring = r.Name
FilterApply "Filter 1"
'Display Resource Name in Text3 on each task sheet printed
SetTaskField Field:="Text3", Value:=r.Name
SelectAll
ZoomTimescale Selection:=True
SendKeys "{ENTER}"
FilePrintPreview
' MsgBox (r.Name)
End If
Next r
End Sub