Return Number of Rows/Columns in a selection.

[Aeneas]

I want to loop through a selection, looping through the columns and then the rows.

"selection.rows" returns the array, which one can then tack on stuff like ".cells(1,1)" but how do I get the length of the array in rows and columns?

Thanks in advance as I know this should be pretty easy.

 

[SkipVought]

Hi,

With Selection
  NbrRows = .Rows.Count
  NbrCols = .Columns.Count
  FirstRow = .Row
  FirstCol = .Column
  LastRow = FirstRow + NbrRows - 1
  LastCol = FirstCol + NbrCols - 1
End With

But you do not necessarily need these values to loop thru a range...

Dim s As Range
For Each s in Selection
  With s
    If .Value <> "" Then
      'I have a value
      .Interior.Color = vbGreen
    Else
      .Interior.Color = vbRed
    End If
  End With
Next

Skip,

_{[red]Be advised:[/red] When transmitting sheet music...
If it ain't baroque, don't fax it!}

 

[Aeneas]

Right, right. I've used count before, just couldn't remember it and it was a while ago. You da man, Skip. Thanks!