Greeeeeeeeeeeeeeeeeeeeeeeeeeeeet
Most Appriciate
Thank sir
Hardeep kanwar
Don Guillett wrote:
try this
Sub doborders()
For Each ws In ActiveWorkbook.Worksheets
lr = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
With ws.Range("a1:m" & lr) 'Selection
.Borders.LineStyle = xlContinuous
.BorderAround Weight:=xlThick 'Medium
End With
Next ws
End Sub
Hi! Everybody
[quoted text clipped - 13 lines]
Hardeep kanwar
--
Message posted via
http://www.officekb.com