VBA - Como corrigir Subscrito fora do Intervalo ?

Question

Olá, estou de volta com uma mensagem de erro .
Gostaria de uma orientação para resolver o problema.

Esse erro ocorre na Versão 2007 do Excel.

01 - Escrevendo o cabeçalho da Planilha

02 - Código

Sub Criar_Planilha()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

    Set str_Wb = Workbooks.Add
        
    With str_Wb
       .Sheets("Planilha1").Cells(1, 1).Value = "Carteira"
       .Sheets("Planilha1").Cells(1, 2).Value = "Cpf"
       .Sheets("Planilha1").Cells(1, 3).Value = "Contrato"
       .Sheets("Planilha1").Cells(1, 4).Value = "Numero Acordo"
       .Sheets("Planilha1").Cells(1, 5).Value = "Situacao Contrato"
       .Sheets("Planilha1").Cells(1, 6).Value = "Segmentação"
       .SaveAs str_Destino
       .Close
    End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Agradeço antecipadamente a quem puder me orientar.

---

JoseBonfim

Answer 1

Tenta assim:

Sub Criar_Planilha()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

    Set str_Wb = Workbooks.Add
        
    With str_Wb
       .Sheets(1).Cells(1, 1).Value = "Carteira"
       .Sheets(1).Cells(1, 2).Value = "Cpf"
       .Sheets(1).Cells(1, 3).Value = "Contrato"
       .Sheets(1).Cells(1, 4).Value = "Numero Acordo"
       .Sheets(1).Cells(1, 5).Value = "Situacao Contrato"
       .Sheets(1).Cells(1, 6).Value = "Segmentação"
       .SaveAs str_Destino
       .Close
    End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

---

Natan