How to format borders to cells using VBA

[Matador_24]

Hello,

How can select a range of cells and apply a format to it using VBA?
For instance, let's say I want to take range B12 to D12 and remove all borders it has and then apply the border only to the top and bottom of the cell?
In the code, I need to specify that the row is a variable. My columns are always the same however the row is always different, thus, when I determine the range, I need to consider that the row will be a variable, for instance in my example above:
Lastrow = 12

Thanks!

Luis

 

[Norie]

You could try something like this.

Dim LastRow As Long

    LastRow = 12

    With Intersect(Rows(LastRow), Range("B:D"))
        .Borders.LineStyle = xlNone
        With .Borders(xlEdgeTop)
            .LineStyle = xlSingle
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThick
        End With

        With .Borders(xlEdgeBottom)
            .LineStyle = xlSingle
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThick
        End With

    End With

 

[Matador_24]

Thanks, I will give it a try..... also, how do you set the color to the selection of cells?
I want a light blue, normally I tried this but did not work:

       .ThemeColor = xlThemeColorLight2
       .TintAndShade = 0.799981688894314
       .PatternTintAndShade = 0

[FONT=wf_segoe-ui_normal]
would you know how to specify color?

Thanks,

Luis[/FONT]