I am trying to set the below listed cells to have the values displayed in
Italic AND Underlined.
Nothing seems to happen with the below???


ActiveSheet.Select
Dim rng As Range
Set rng = Range("A1,B1,D1,F1,B2,E2,B3,C3,D3,E3,F3,G3,H3,I3")
With rng
Font.Italic = False
Font.Underline = True
Range("A1").Value = "Roll#"
Range("B1").Value = "Customer"
Range("D1").Value = "Date"
Range("F1").Value = "Belt Type"
Range("B2").Value = "ST Job No."
Range("E2").Value = "Inspectors Names"
Range("B3").Value = "Item No."
Range("C3").Value = "Section Length"
Range("D3").Value = "Width"
Range("E3").Value = "Belt Type"
Range("F3").Value = "Top Cover"
Range("G3").Value = "Bottom Cover"
Range("H3").Value = "Event Type"
Range("I3").Value = "Comments/Stamp Id's"
End With


Did i miss something?
Corey....