Hello guru's
I need some assistance please to modify this existing macro. It currently changes the rows to yellow for selected filtered rows. In addition, I need it to also change the font colour to red for column F, only for the filtered rows. I execute this macro after i have applied a filter.
Help much appreciated!
Sub SelectVisibleNonEmptyRows()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") 'Enter your worksheet name here
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
ws.Range(ws.Rows(2), ws.Rows(lastRow)).SpecialCells(xlCellTypeVisible).EntireRow.Select
Selection.SpecialCells(xlCellTypeVisible).Interior.Color = vbYellow
End Sub
Bookmarks