I'm using the code below to select all visible sheets, but it's not working on the last sheet.
Any suggestions would be appreciated. Thanks!
Sub Error_Tabulation()
Application.ScreenUpdating = False
On Error Resume Next
Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
If wsSheet.Visible Then
On Error Resume Next
Cells.Find("E, D").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("D E").Offset(0, 1).PasteSpecial xlPasteValues
On Error Resume Next
Cells.Find("G, A").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("A G").Offset(0, 1).PasteSpecial xlPasteValues
On Error Resume Next
Cells.Find("G, K").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("K G").Offset(0, 1).PasteSpecial xlPasteValues
On Error Resume Next
Cells.Find("M, J").Offset(0, 5).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 25)).Copy
Cells.Find("J M").Offset(0, 1).PasteSpecial xlPasteValues
'On Error GoTo 0
Range("A3").Select
Application.CutCopyMode = False
wsSheet.Select
End If
Next wsSheet
Application.ScreenUpdating = True
End Sub
Bookmarks