Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub NoFormulas()
- Application.ScreenUpdating = False
- For Each iList In ActiveWorkbook.Worksheets
- iList.Cells.Copy
- iList.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.CutCopyMode = False
- Next
- Application.ScreenUpdating = True
- End Sub
- Sub Reset_Styles()
- '
- For Each objStyle In ActiveWorkbook.Styles
- On Error Resume Next
- If Not objStyle.BuiltIn Then objStyle.Delete
- On Error GoTo 0
- Next objStyle
- '
- Set wbMy = ActiveWorkbook
- Set wbNew = Workbooks.Add
- wbMy.Styles.Merge wbNew
- wbNew.Close savechanges:=False
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement