Sub Мяу()
    Dim wb As Workbook
    Dim sFile$, s$, spl, i&
    With ThisWorkbook
        For i = 7 To .Sheets.Count
            If .Sheets(i).Tab.Color = 10498160 Then s = s & "," & .Sheets(i).Name
        Next
        With Application.FileDialog(msoFileDialogOpen)
            .InitialFileName = ThisWorkbook.Path & Application.PathSeparator
            .Filters.Clear
            .Filters.Add "Книги Excel", "*.xls*"
            If .Show = 0 Then Exit Sub
            sFile = .SelectedItems(1)
        End With
        Set wb = Workbooks.Open(Filename:=sFile, Password:="")
        spl = Split(Mid(s, 2), ",")
        .Sheets(spl).Move After:=wb.Sheets(wb.Sheets.Count)
    End With
End Sub