Pivot Table : After double click Change Format of New Sheet to normal
Copy below code in thisworkbook model
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim sht As Worksheet
Dim oLo As ListObject
Set sht = ActiveSheet
For Each oLo In sht.ListObjects
sht.ListObjects(oLo.Name).TableStyle = ""
Next
End Sub
No comments:
Post a Comment