I have the following code that loops within a sheet, but I'm trying to loop this code throughout all sheets in my workbook except for one sheet labeled "Summary". Can someone help writing this code out? I've tried some approaches but haven't had luck. Here's the code I'm trying to loop throughout the workbook:
For i = 2 To LR
If Abs(Range("J" & i)) > 0 Then
Range("A" & i & ":J" & i).Copy
Sheets("Sheet1").Range("A" & k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
k = k + 1
Else
End If
Next i
See Question&Answers more detail:os