Hi
I have the following code, that works excellent for the workbook, however I would like to limit it to only the "active page" and cannot seem to get it, can anyone suggest a way.
For Each ws In ActiveWorkbook.Worksheets
LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws.Range("A7:F" & LastRow).Borders.Weight = xlThin
Next ws
Tks Jamada
I have the following code, that works excellent for the workbook, however I would like to limit it to only the "active page" and cannot seem to get it, can anyone suggest a way.
For Each ws In ActiveWorkbook.Worksheets
LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws.Range("A7:F" & LastRow).Borders.Weight = xlThin
Next ws
Tks Jamada