''STYLING'' Dim sheet As Range ' Find Number of rows used Dim Final As Variant Final = Range("A1").End(xlDown).Row ' Find Last Column Dim lCol As Long lCol = Cells(1, Columns.Count).End(xlToLeft).Column Set sheet = ActiveWorkbook.ActiveSheet.Range("A" & Final & "", Cells(1, lCol )) With sheet .Interior.ColorIndex = 1 End With
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools