Check size of selected range in VBA macro

Topic

New Reply

I’ve created a basic macro to format a selected range of cells with borders, how can I check the number of rows and columns in the selected range. I don’t want to draw inside lines if there is only 1 row or 1 column.

Thanks for your help

– Moz

Reply | Quote

Replies

[Code]
Dim lngRows as Long, lngCols as Long

lngRows=Selection.Rows.Count
lngCols=Selection.Columns.Count
[/code]

From this you can determine what you need to do

Reply | Quote

Thanks Andrew

Reply | Quote

Moz, would you mind sharing the macro for doing borders within a range? I have been struggling with something similar and a peek at your code would help.

Thanks

Reply | Quote

Maybe not what you are after, but as an example
The code below will put a Solid Thick Edge and Thin Inside line on the selected range

Code:

Sub DoBorders()

With Selection
    .Borders(xlInsideVertical).Weight = xlThin
    .Borders(xlInsideHorizontal).Weight = xlThin
    .Borders(xlEdgeLeft).Weight = xlThick
    .Borders(xlEdgeRight).Weight = xlThick
    .Borders(xlEdgeTop).Weight = xlThick
    .Borders(xlEdgeBottom).Weight = xlThick
End With

End Sub

Reply | Quote