Reference to xlCellTypeConstants

[bguenther]

I found the following code in one of the posts on this forum:

Sub Button1_Click()
Dim Rng As Range
Dim Arr As Variant
Dim i As Long

Arr = Array(xlCellTypeConstants)

For i = 0 To UBound(Arr)
Set Rng = Range(Cells(3, 2), Cells(Rows.Count, 2).End(xlUp)).SpecialCells(Arr(i), 23)
On Error GoTo 0
With Rng
.Borders(xlInsideHorizontal).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.BorderAround ColorIndex:=xlAutomatic, Weight:=xlThin
End With
'clear the variable
Set Rng = Nothing
Next i
End Sub

When i run it in Excel it works just fine but when i run it from solidworks then it says that xlCellTypeConstants variable not defined. Is xlCellTypeConstants something you can add in, in the references ?
Thanks for any help.

[royUK]

I wouldn't think you can use an Excel macro from another program

[bguenther]

Solidworks uses vba just like excel I often use excel code in solidworks so that part should work.

[bguenther]

I found what was wrong. In order for xlCellTypeConstants to work you have to have Excel 12.0 added in, in the references and I had Excel 5.0. Now it works great.

[Bob Phillips]

I found what was wrong. In order for xlCellTypeConstants to work you have to have Excel 12.0 added in, in the references and I had Excel 5.0. Now it works great.

Or just add your own constant

Please Login or Register  to view this content.