.BorderAround

[dinotom]

with rngCDTemp being set to a range (a valid range )

why does this bolded line produce an error (trying to put a thin line border around the whole range)

 With rngCDTemp.Select
        [B].BorderAround.Weight = xlThin[/B]
        ActiveWorkbook.Names.Add Name:=AcctName & "ChtDataTable", _
        RefersTo:=rngCDTemp
     End With

 

[Norie]

Thomas

Why do you have .Select?

Just remove that and I think the code should work.

Mind you I've got to ask what the code is actually meant to do and why you are using With.

 

[dinotom]

why does this bolded line produce an error (trying to put a thin line border around the whole range)

the code is to do whats in the parentheses

and I originally had rngCDTemp.BorderAround.Weight = xlThin which didnt work either

 

[Jonmo1]

1. Remove the .Select - you don't select on the with line...
2. Correct syntax for borderaround is
.BorderAround Weight:= xlThin

 

[dinotom]

and the rngCDTemp.Select does select the proper range

 

[dinotom]

Jonmo, Well that stopped the code from barfing but did NOT put the thin line around the range

 

[Norie]

Thomas

You say the code is just meant to put a border round a range, why the Names part then?

Anyway there isn't actually a Weight property, this is how you refer to the Weight parameter when passing it to BorderAround.

    Set rngCDTemp = Range("A1:A10")
    
    rngCDTemp.BorderAround Weight:=xlThin

 

[dinotom]

I was using the With statement so I could do both, name the range and put the line around it. I am now trying to solve one problem at a time, namely putting the line around the range.

rngCDTemp.BorderAround Weight = xlThin this line, which I already had tried, doesn't put the line around either

 

[Jonmo1]

rngCDTemp.BorderAround Weight = xlThin this line, which I already had tried, doesn't put the line around either

ok, again....
The correct syntax is
rngCDTemp.BorderAround Weight:= xlThin

see the difference?

 

[dinotom]

missing the colon