Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

RunTime Error 1004

Sub SetReportInItalics()     TotalRow = cells(Rows.count, 1).End(xlUp).row     FinalRow = TotalRow - 1     range("A1:A" & FinalRow).font.Italic = True End Sub