VBA salva guias individualmente com nomes parcialmente predefinidos

Espero que alguém possa me ajudar a resolver um quebra-cabeça aqui. Eu tenho uma pasta de trabalho com várias guias para as quais criei macro para salvar cada uma delas como seu próprio arquivo VBA. Quando os arquivos são salvos, a macro é projetada para usar o nome da guia combinado com um valor predefinido e uma data e hora.

Aqui está o meu problema. Eu tenho apenas uma única guia que desejo excluir, pois ela precisa de uma convenção de nomenclatura diferente, mas não consigo descobrir como excluí-la da macro que tenho e obter a mesma macro para salvar esse arquivo com uma convenção de nomenclatura diferente.

Aqui está o que eu tenho:

Sub SaveWorksheetsAsCsv222() público
Dim xWs como planilha
Dim xDir como string
Dim pasta como FileDialog
dt = Format(CStr(Agora), "AAAAMMDDHHMM")
Definir pasta = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = pasta.SelectedItems(1)
Para cada xWs em Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & "US_DGF_" & xWs.Name & "_CARe_" & dt, xlCSV, Local:=True
Próximo
End Sub

O que eu preciso é que uma guia chamada USCS seja salva usando os mesmos critérios, mas em vez de "CARe: precisa ser CARe2 - Apenas esta guia.

Alguém pode ajudar por favor?