Macro verificar nome abas - ERRO!

[Cassio FP.]

Fala Galera!

 

Fiz uma macro para copiar os dados de uma aba (Orçamento) para uma nova aba e renomear esta nova aba de acordo com a célula C2 da aba Orçamento. Funciona perfeito, o problema é que quando crio uma vez, se clico novamente no botão gravar sem alterar a célula C2 dá erro porque já existe uma aba com o nome criado. Já vi algumas opções mas não consegui adaptar pois sou inciante em macro. O que preciso é que haja uma verificação se este nome existe e mostre uma mensagem de erro para alterar a célula C2. Segue abaixo o que fiz, caso saiba como ajustar eu agradeço.

 

If Sheets("Orçamento").[C2] = "" Then
    MsgBox "É obrigatório preencher o campo contratante!"
    Else
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    ActiveWindow.Zoom = 90
    ActiveWindow.DisplayGridlines = False
    Set Target = Range("C2")
    ActiveSheet.Name = Left(Target, 31)

[Basole]

Veja se é isso que precisa:

  Dim sh As Worksheet
If Sheets("Orçamento").[C2] = "" Then
        MsgBox "É obrigatório preencher o campo contratante!"
    Else
    For Each sh In ThisWorkbook.Worksheets
        Set Target = Range("C2")
    If VBA.UCase(sh.Name) = VBA.UCase(Left(Target, 31)) Then
        MsgBox "Já existe uma Planilha com o nome " & Target.Value, vbCritical, ""
    Exit Sub
    End If
    Next
    
         Cells.Select
         Selection.Copy
         Sheets.Add After:=Sheets(Sheets.Count)
         Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
             , SkipBlanks:=False, Transpose:=False
         ActiveWindow.Zoom = 90
         ActiveWindow.DisplayGridlines = False
         ActiveSheet.Name = Left(Target, 31)
  End If

 

[Cassio FP.]

@Basole Perfeito Fera! Muito obrigado!