After entering several values, starting at cell "F10" and continuing down Column "F", there may be empty cells left in between.
I can select all the cells in the variable range, between the top cell "F10" and the last cell with data, but now need to replace all the Blanks left behind in the selected range and format them in a certain manner, using the value of "100" .
What I have so far is:-
Application.Goto Cells(Rows.Count, "F").End(xlUp) ' Finds last Row used in Column F
Range(Selection, Range("F10")).Select ' Select total Range
' The format I need
ActiveCell.FormulaR1C1 = "100"
Selection.Font.Italic = True
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.ColorIndex = 5
But don't know how to achieve my aim.
Any help for a Newbie appreciated.
I can select all the cells in the variable range, between the top cell "F10" and the last cell with data, but now need to replace all the Blanks left behind in the selected range and format them in a certain manner, using the value of "100" .
What I have so far is:-
Application.Goto Cells(Rows.Count, "F").End(xlUp) ' Finds last Row used in Column F
Range(Selection, Range("F10")).Select ' Select total Range
' The format I need
ActiveCell.FormulaR1C1 = "100"
Selection.Font.Italic = True
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.ColorIndex = 5
But don't know how to achieve my aim.
Any help for a Newbie appreciated.