Putting a standard border around a cell with contents

[huc]

Hi all,

Is there a simple bit of code I can paste into an existing macro that as a very last instruction will look at the cells in the sheet, and if the cell contains data, puts a standard outside border around it, please?

Thanks,
Chris

 

[baitmaster]

use conditional formatting, this will do so in real time

 

[huc]

Thanks, but I really need to make it work as part of the macro.

The macro takes over 1000 rows of data per day, and when it's finished running the final report can vary from between 20 rows to over 500 rows.

It'd be nice if the macro could include the border around cells with data, in effect putting a border around the table....

 

[baitmaster]

assuming your data consists only of constants, try

Sub applyBorders()
With [COLOR=red]Sheet1[/COLOR].Cells.SpecialCells(xlCellTypeConstants)
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End With
End Sub

Change sheet1 as required