Excel XP & Win XP
I have the following code to place a black thin border around every cell in
the range, and a thick colored border around (outline) the whole range. I
get an error "Object Required" on the first line and would probably get the
same error on the second line if the code got past the first line. What is
the proper syntax/code to do what I want? Thanks for your time. Otto
With ws
.["F1:H6"].Borders LineStyle:=xlContinuous, Weight:=xlThin,
ColorIndex:=xlAutomatic
.["F1:H6"].BorderAround LineStyle:=xlContinuous,
Weight:=xlThick, ColorIndex:=9
.["F1:H6"].Interior.ColorIndex = 36
End With

First, I wouldn't use ["F1:H6"] (or any of the [] shorthand), but
Range("F1:H6"). The shorthand is sometimes convenient, sometimes confusing
and misleading, and sometimes makes it hard to track down a problem.

Second, I think what you need is
With ws
With .Range("F1:H6").Borders
.LineStyle=xlContinuous
.Weight=xlThin
.ColorIndex:=xlAutomatic
End With
' etc.
End With

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Otto Moehrbach" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Excel XP & Win XP
> I have the following code to place a black thin border around every cell
> in the range, and a thick colored border around (outline) the whole range.
> I get an error "Object Required" on the first line and would probably get
> the same error on the second line if the code got past the first line.
> What is the proper syntax/code to do what I want? Thanks for your time.
> Otto
> With ws
> .["F1:H6"].Borders LineStyle:=xlContinuous, Weight:=xlThin,
> ColorIndex:=xlAutomatic
> .["F1:H6"].BorderAround LineStyle:=xlContinuous,
> Weight:=xlThick, ColorIndex:=9
> .["F1:H6"].Interior.ColorIndex = 36
> End With
>

Thanks Jon. I'll give that a try. Otto
"Jon Peltier" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> First, I wouldn't use ["F1:H6"] (or any of the [] shorthand), but
> Range("F1:H6"). The shorthand is sometimes convenient, sometimes confusing
> and misleading, and sometimes makes it hard to track down a problem.
>
> Second, I think what you need is
> With ws
> With .Range("F1:H6").Borders
> .LineStyle=xlContinuous
> .Weight=xlThin
> .ColorIndex:=xlAutomatic
> End With
> ' etc.
> End With
>
> - Jon
> -------
> Jon Peltier, Microsoft Excel MVP
> Tutorials and Custom Solutions
> http://PeltierTech.com
> _______
>
>
> "Otto Moehrbach" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Excel XP & Win XP
>> I have the following code to place a black thin border around every cell
>> in the range, and a thick colored border around (outline) the whole
>> range. I get an error "Object Required" on the first line and would
>> probably get the same error on the second line if the code got past the
>> first line. What is the proper syntax/code to do what I want? Thanks for
>> your time. Otto
>> With ws
>> .["F1:H6"].Borders LineStyle:=xlContinuous, Weight:=xlThin,
>> ColorIndex:=xlAutomatic
>> .["F1:H6"].BorderAround LineStyle:=xlContinuous,
>> Weight:=xlThick, ColorIndex:=9
>> .["F1:H6"].Interior.ColorIndex = 36
>> End With
>>
>
>

Hi Otto

Record a macro when you do it manual and look a t the code


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Otto Moehrbach" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> Excel XP & Win XP
> I have the following code to place a black thin border around every cell in
> the range, and a thick colored border around (outline) the whole range. I
> get an error "Object Required" on the first line and would probably get the
> same error on the second line if the code got past the first line. What is
> the proper syntax/code to do what I want? Thanks for your time. Otto
> With ws
> .["F1:H6"].Borders LineStyle:=xlContinuous, Weight:=xlThin,
> ColorIndex:=xlAutomatic
> .["F1:H6"].BorderAround LineStyle:=xlContinuous,
> Weight:=xlThick, ColorIndex:=9
> .["F1:H6"].Interior.ColorIndex = 36
> End With
>
>

Hi Otto,
What you tried implies that Borders is a method. In fact it is a collection.
Try
With Range("A1:B6").Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With


"Otto Moehrbach" wrote:

> Excel XP & Win XP
> I have the following code to place a black thin border around every cell in
> the range, and a thick colored border around (outline) the whole range. I
> get an error "Object Required" on the first line and would probably get the
> same error on the second line if the code got past the first line. What is
> the proper syntax/code to do what I want? Thanks for your time. Otto
> With ws
> .["F1:H6"].Borders LineStyle:=xlContinuous, Weight:=xlThin,
> ColorIndex:=xlAutomatic
> .["F1:H6"].BorderAround LineStyle:=xlContinuous,
> Weight:=xlThick, ColorIndex:=9
> .["F1:H6"].Interior.ColorIndex = 36
> End With
>
>
>