Private Sub CommandButton1_Click()
'
' Macro2 Macro
' Macro recorded 4/26/2006 by username
'

'
   ActiveWorkbook.HasRoutingSlip = True
   With ActiveWorkbook.RoutingSlip
       .Recipients = "User Name" Need the value to pull the information from a Cell on the worksheet to reflect the value of data in a Cell Example: A1= "User" and the Code will reflect .Recipients = "User"
       .Subject = "Routing: Form"
       .Message = ""
       .Delivery = xlOneAfterAnother
       .ReturnWhenDone = True
       .TrackStatus = True
   End With
   ActiveWorkbook.Route
End Sub