Range Object in VBA
'Remove most formatting, contents, borders and autofit the cells contents. Great to use instead of clearcontents since it does a much cleaner job
Sub cleanrange(myrange As Range)
myrange.ClearContents
myrange.UnMerge
myrange.Font.Bold = False
myrange.Font.Italic = False
myrange.EntireRow.AutoFit
With myrange.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With myrange
On Error Resume Next
.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
On Error GoTo 0
End With
End Sub