Re: Selection.Cells vs Range reference - strange behaviour (using

Hi Bob,

Thanks - your first example was exactly what I needed! Coming from a Java
background that seems strange to me - simply removing the brackets from
around 'Range("C1").Cells' to make it work.

Would you mind giving me a quick explanation of what's going on there so I
know for next time?

Many Thanks,
Tara H

"Bob Phillips" wrote:

Depending upon the function format_over_105 try

Range("C1").Value = "> 105%"
format_over_105 Range("C1").Cells

or

Range("C1").Value = "> 105%"
format_over_105 (Range("C1").Value)


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Tara H" <TaraH@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:A57B07FA-3150-462A-BA10-A6BD11997FBC@xxxxxxxxxxxxxxxx
In accordance with good practice, I'm trying to rewrite sections of my
code
that rely on first selecting cells to remove the selection part.
Generally
I've had good success with this, but the following has me totally stumped.

I have a series of subs for formatting text along the lines of the example
below:

Sub format_over_105(myRange As Range)

With myRange.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With myRange.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

The original code used the formatter like this:
Range("C1").Select
Selection.Value = "> 105%"
format_over_105 (Selection.Cells)

It seemed that I should be able to change this to:
Range("C1").Value = "> 105%"
format_over_105 (Range("C1").Cells)

However, the second example gives the error 'Object Required' on the
second
line, and when I hold the mouse over the line that gave the error, it
tells
me
Range("C2").Cells = "Delivery > 105%". I have tried using just
Range("C1"),
but that gives the same error.

I would have thought that the first and second example were equivalent -
can
anyone explain to me why the first works and the second doesn't?

The purpose of the above is simply to provide a 'key' - the formatting of
the actual rows according to their values works fine with
For Each myRow In Active***.UsedRange.Rows
....
format_over_105 (myRow.Cells)

Many thanks in advance,
Tara H



.