Hi I have an excel worksheet with values in each rows something like this -

138 3/25/2010 IOL IOL ATF D/M TRIMAC
139 3/29/2010 IOL IOL 5W30 TRIMAC
140 3/29/2010 IOL IOL 5W20 TRIMAC[/B]




What I am trying to accomplish is that when the user clicks on any value in first column (for example "139"), the macro to print the values in that row (row with active cell) to print values of first 5 columns in the following format on a label sticker.

139
3/29/2010
IOL
IOL
5W30

I tried with the following code in a command button but it prints out the selected cell value in rows -not in the format I would like to. Your assistance is much appreciated.

Private Sub CommandButton1_Click()
PrintLabel
End Sub


Sub PrintLabel()

Dim myRange As Range
Dim myRange1 As Range
Dim myRange2 As Range
Dim myRange3 As Range
Dim myRange4 As Range
Dim myRange5 As Range

Worksheets("BulkReceiptLog").Activate


Set myRange1 = ActiveCell

Set myRange2 = ActiveCell.Offset(0, 1)
Set myRange3 = ActiveCell.Offset(0, 2)
Set myRange4 = ActiveCell.Offset(0, 3)
Set myRange5 = ActiveCell.Offset(0, 4)


Set myRange = Application.Union([myRange1], [myRange2], [myRange3], [myRange4], [myRange5])


myRange.PrintPreview
myRange.PrintOut
End Sub