I have several Workbooks where there are several sheets that have Tab color with RGB code (0,255,0) i.e. completely green so I need to copy only these sheets to ActiveWorkbook without opening workbooks containing these green sheets
Sub Copy_Green_Sheets()
Dim wb As Workbook
Dim ws As Worksheet
If ws.Tab.Color = RGB(0, 255, 0) Then
Set wb = Workbooks("Target workbook")
For Each ws In Workbooks("source workbook").Worksheets
ws.Copy After:=wb.Sheets(wb.Sheets.Count)
Next ws
End If
End Sub
See Question&Answers more detail:
os 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…