It is easier to just remove all the borders than to use pastespecial

For Each sht In Sheets

With sht.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
End With
Next sht

"CC" wrote:

I try create a macro that copy a whole worksheet and paste to the same
worksheet with paste special allexceptborders and do this on all of 24
sheets in my workbook