|
Removing Border lines and colour for All sheets
Hi Everyone,
is it possible to write a macro to run every sheet and just remove border lines and colours for all cells in a sheet for every sheets in a workbook? I know macro is like this but can't really think how I can loop this. Can anyone help? Thanks alot Cells.Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Selection.Interior.ColorIndex = xlNone |
Removing Border lines and colour for All sheets
just to add to your code
Sub remove_Borders() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws.Cells .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone .Interior.ColorIndex = xlNone End With Next End Sub -- Gary Keramidas Excel 2003 "James" wrote in message ... Hi Everyone, is it possible to write a macro to run every sheet and just remove border lines and colours for all cells in a sheet for every sheets in a workbook? I know macro is like this but can't really think how I can loop this. Can anyone help? Thanks alot Cells.Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Selection.Interior.ColorIndex = xlNone |
Removing Border lines and colour for All sheets
I think the code can be shorted to this...
Sub Remove_Borders() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets With WS.Cells .Borders.LineStyle = xlNone .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Interior.ColorIndex = xlNone End With Next End Sub -- Rick (MVP - Excel) "Gary Keramidas" <GKeramidasAtMSN.com wrote in message ... just to add to your code Sub remove_Borders() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws.Cells .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone .Interior.ColorIndex = xlNone End With Next End Sub -- Gary Keramidas Excel 2003 "James" wrote in message ... Hi Everyone, is it possible to write a macro to run every sheet and just remove border lines and colours for all cells in a sheet for every sheets in a workbook? I know macro is like this but can't really think how I can loop this. Can anyone help? Thanks alot Cells.Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Selection.Interior.ColorIndex = xlNone |
Removing Border lines and colour for All sheets
On Feb 15, 2:55*pm, "Rick Rothstein"
wrote: I think the code can be shorted to this... Sub Remove_Borders() * Dim WS As Worksheet * For Each WS In ThisWorkbook.Worksheets * * With WS.Cells * * * .Borders.LineStyle = xlNone * * * .Borders(xlDiagonalDown).LineStyle = xlNone * * * .Borders(xlDiagonalUp).LineStyle = xlNone * * * .Interior.ColorIndex = xlNone * * End With * Next End Sub -- Rick (MVP - Excel) "Gary Keramidas" <GKeramidasAtMSN.com wrote in message ... just to add to your code Sub remove_Borders() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws.Cells * *.Borders(xlDiagonalDown).LineStyle = xlNone * *.Borders(xlDiagonalUp).LineStyle = xlNone * *.Borders(xlEdgeLeft).LineStyle = xlNone * *.Borders(xlEdgeTop).LineStyle = xlNone * *.Borders(xlEdgeBottom).LineStyle = xlNone * *.Borders(xlEdgeRight).LineStyle = xlNone * *.Borders(xlInsideVertical).LineStyle = xlNone * *.Borders(xlInsideHorizontal).LineStyle = xlNone * *.Interior.ColorIndex = xlNone * *End With Next End Sub -- Gary Keramidas Excel 2003 "James" wrote in message .... Hi Everyone, is it possible to write a macro to run every sheet and just remove border lines and colours for all cells in a sheet for every sheets in a workbook? I know macro is like this but can't really think how I can loop this. Can anyone help? Thanks alot * *Cells.Select * *Selection.Borders(xlDiagonalDown).LineStyle = xlNone * *Selection.Borders(xlDiagonalUp).LineStyle = xlNone * *Selection.Borders(xlEdgeLeft).LineStyle = xlNone * *Selection.Borders(xlEdgeTop).LineStyle = xlNone * *Selection.Borders(xlEdgeBottom).LineStyle = xlNone * *Selection.Borders(xlEdgeRight).LineStyle = xlNone * *Selection.Borders(xlInsideVertical).LineStyle = xlNone * *Selection.Borders(xlInsideHorizontal).LineStyle = xlNone * *Selection.Interior.ColorIndex = xlNone- Hide quoted text - - Show quoted text - thanks alot everyone |
| All times are GMT +1. The time now is 03:45 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com