셀값과 시트이름 일치 시 시트 색 변환

@iviolin**** 님 정말 감사합니다.

또.. 궁금한 부분은
아래 사진처럼 사과랑 포도 시트만 따로 빼서 저장하고 싶은데
예를들어 제가 저장하고자 하는 파일의 목록을 B1:B3에 넣고
많은 시트 중에서 B1:B3에 있는 시트만 따로 저장하고 싶다면
"목록시트"에 "B1:B3"를 넣으면 될까요?

Sub AccordSheet()

Dim AccWs As Worksheet
Dim i As Long
Dim NExcel As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set NExcel = Workbooks.Add

For i = 1 To ThisWorkbook.Worksheets("B1:B3").Cells(Rows.Count, 2).End(xlUp).Row
For Each AccWs In ThisWorkbook.Worksheets
If AccWs.Name = ThisWorkbook.Worksheets("B1:B3").Cells(i, 2) Then
AccWs.Copy After:=NExcel.Sheets(NExcel.Worksheets.Count)
End If
Next
Next
NExcel.Sheets("Sheet1").Delete
NExcel.SaveAs Filename:="~~~~~~\시트실험.xlsx"
NExcel.Close

End Sub