Define Certain Exact Range

[sal21]

This file contain 2 sheet and a macro that colorize a column.

http://www.gssitaly.com/cartel2.zip

my problem is possible to colorize entire column saturday and sunday in grey to the last useful record is present i column A of sheet PRIMO_SEMESTRE and SECONDO_SEMESTRE? I have insert the condition to colorize until 15000.
In my case i wuold want to colorized column to end in line 811...

My idea is to make a control if in the column A is present a number, or another value....(boh!?)

 

[sal21]

sal, try this variation...

Sub FillGrey()
  Dim R As Long
  Dim c As Range
  Dim wsh As Worksheet
  
  For Each wsh In ActiveWorkbook.Worksheets
    If wsh.Name = "PRIMO_SEMESTRE" Or wsh.Name = "SECONDO_SEMESTRE" Then
      wsh.Activate
      R = Range("A65536").End(xlUp).Row
      Range(Range("F1"), Range("F1").End(xlToRight)).Select
      For Each c In Selection
        If c.Value = 7 Then 'Saturday
          c.Offset(4, 0).Resize(R - 4, 2).Interior.ColorIndex = 15
        End If
      Next c
    End If
  Next wsh
End Sub

Denis

naturally it work great! Tks and good vacation...