..Range(.Cells(2, 1), .Cells(2, 26)).Interior.ColorIndex = 15
With .Cells(2, 3)
.Value = "'" & .Cells(3, 17) //this neeeds to be text value
.Font.Bold = True
.Font.Size = 14
.RowHeight = 18
.Font.Color = vbWhite
End With
End With

--
Regards,
Tom Ogilvy


"Janis" wrote:

This code piece works it creates a header row except it stores the value of
the cell #17 into cell #3 as a number value instead of a string value and I
don't know how to change it without rewriting the rest of it.
With ActiveWorkbook.Worksheets("Sheet1")
XXXXX
XXXXXother stuff
.Rows(2).Insert
.Range(.Cells(2, 1), .Cells(2, 26)).Interior.ColorIndex = 15
With .Cells(2, 3)
Value = .Cells(3, 17) //this neeeds to be text value
.Font.Bold = True
.Font.Size = 14
.RowHeight = 18
.Font.Color = vbWhite
End With
End With
THANKS.