Gridlines Macro

[MSmithson]

Hello all,

Trying to write a macro that will add standard gridlines to a worksheet given these variables:

Starting in row 2, column 2, gridlines through the last cell with text in row 2 and down through the last row with text of the worksheet.

Text could go to any column letter and any row number.

Any help is appreciated!

Question also posed at mrexcel: http://www.mrexcel.com/forum/showthread.php?t=507534

[JBeaucaire]

This should do it:

Sub AddLines()
    LastRow = Cells.Find("*", Cells(Rows.Count, Columns.Count), _
        SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    LastCol = Cells.Find("*", Cells(Rows.Count, Columns.Count), _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    Range("B2", Cells(LastRow, LastCol)).Borders.Weight = xlThin

End Sub