Format borders in Excel sheet

[HumptyDumty]

I am trying to get VB to format borders in an Excel sheet.
Why isn't the following code working?

Dim xlEdgeBottom
Dim xlDouble
Dim xlThick

xlEdgeBottom = 1
xlDouble = 1
xlThick = 1

Set Range1 = Sheet5.Range("A1", "C1")

With Range1.Borders(xlEdgeBottom)
.Linestyle = xlDouble
.Weight = xlThick
End With


Does anyone have any tips on links or other codes (border style, etc)

THX

Humty

[Si_the_geek]

Problem 1 - you shouldnt be defining the constants, and you've got them wrong anyway; they should be:

xlEdgeBottom = 9
xlDouble = -4119
xlThick = 4


Problem 2 - what is this in? VB, Excel VBA?


Problem 3 - does the sheet exist?

[HumptyDumty]

Problem 1 - you shouldnt be defining the constants, and you've got them wrong anyway; they should be:

xlEdgeBottom = 9
xlDouble = -4119
xlThick = 4




Problem 2 - what is this in? VB, Excel VBA?

> VB


Problem 3 - does the sheet exist? [/QUOTE]

>Yes

Hope u can help me.
-e-

[Si_the_geek]

ok, I need to see more of your code that comes before this bit (especially the bit ti to get the sheet reference).

[rbetz]

I too need various xl constants defined. (ie. xlNone, xlEdgeBottom, xlThin, xlAutomatic, xlCenter, etc.)

What do I need to do to get these added to my dll?