The following macro creates a routing slip for two specific individuals. How
can I change this to create a routing slip based on the names entered in
specific spreadsheet cells?

Sub Macro5()
'
' Macro5 Macro
' Macro recorded 8/8/2005 by Xavier Cougart
'

Sheets("PAF Form").Copy
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
. Recipients = Array("Roger Clemens", "Joe Torry")
. Subject = "Routing: Book1"
. Message = ""
. Delivery = x1OneAfterAnother
. ReturnWhenDone = True
. TrackStatus = True
End With
ActiveWorkbook.Route