0

Please help me!

I have the following code working on the active worksheet, I want it looping through all of the work sheets once and perform this task.

Thank you

`

Sub CR_Formatting()
'
' CR_Formatting Macro
' After slipting unpivot and formatting
'
' Keyboard Shortcut: Ctrl+Shift+P
'         
                Range("A3").Select
                Range(Selection, Selection.End(xlToRight)).Select
                Range(Selection, Selection.End(xlDown)).Select
                    Selection.Copy
                Range("H1").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:_
 =False,Transpose:=False
                Columns("A:G").Select
                Range("G1").Activate
                Application.CutCopyMode = False
                Selection.Delete Shift:=xlToLeft
                Range("D1").Select
End Sub

`

braX
  • 11,506
  • 5
  • 20
  • 33
Happy Chukwudike
  • 1
  • Along with the linked, please look into: https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba to help clean your code and make it run quicker. – Scott Craner Nov 10 '22 at 16:23

0 Answers0