VBA-템플릿 워크 시트를 복사하고 사용자가 입력 한 텍스트로 이름을 바꾸고 탭 색상을 수정합니다.

저는 VBA를 처음 사용합니다. (1) 템플릿을 복사하고 (2) 지정된 시트 바로 앞에 놓고 (3) 색상을 수정하고 싶습니다.

(1)과 (2)는 이미 괜찮습니다.하지만 색상 (코드의 마지막 3 줄)을 수정하는 데 문제가 있습니다. 살펴보기 위해 도움을 요청해도 될까요 ..? 귀하의 도움에 미리 감사드립니다.

하위 Add_ITS ()

Dim wb As Workbook: Set wb = ThisWorkbook
Dim wt As Worksheet: Set wt = wb.Sheets("Data Input-ITS template")
Dim ws As Worksheet: Set ws = wb.Sheets("ITSEnd")
Dim newws As Worksheet, sh As Worksheet, newname
Dim query As Long, xst As Boolean, info As String

xst = False
newname = Application.InputBox("Please Enter the name of the Worksheet")
If newname = "False" Then Exit Sub
For Each sh In wb.Sheets
    If sh.Name = newname Then
        xst = True: Exit For
    End If
Next
If Len(newname) = 0 Or xst = True Then
    info = "Sheet name is invalid. Please retry."
    GoTo retry
End If
wt.Copy before:=ws: Set newws = ActiveSheet: newws.Name = newname

With wb.newws.Tab
.Color = 6299648
.TintAndShade = 0

End With
End Sub