Hi Carole,
Alternative code (see attached with code saved in Module 5):
Sub Billing_CopyIt()
Dim ws As Worksheet
Dim wsOut As Worksheet: Set wsOut = ThisWorkbook.Sheets("Billing Temp")
Dim rng As Range
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case Is = "Audit Temp", "Audit Summary", "Billing Temp", "Code_Table", "Master Provider List", "Accuracy Report Group", "Instructions"
'do nothing
Case Else
On Error Resume Next
Set rng = ws.Range("B23:H37").SpecialCells(2)
On Error GoTo 0
If Not rng Is Nothing Then
Set rng = rng.Resize(rng.Rows.Count, rng.Columns.Count + 1).Offset(, -1)
rng.Copy: wsOut.Range("A" & Rows.Count).End(xlUp)(2, 1).PasteSpecial xlPasteValues
Set rng = Nothing
End If
End Select
Next ws
Application.ScreenUpdating = True
End Sub
Cheers, berlan
Bookmarks