it will be easier to read like this

With ActiveSheet
.Hyperlinks.Add .Cells(i, "H"), "http://www.google.ca/"
With .Cells(i, "H").Font
.Name = "Arial"
.Size = 16
.Underline = xlUnderlineStyleNone
.ColorIndex = 0
.Italic = True
End With
End With

--
isabelle