I need help understanding why the data entered in the code is not being sent to the Monday board

Sub GetMondayBoardsWithPOST()

Dim objHTTP As Object

Dim MondayAPIKey As String

Dim url As String

Dim json As String

' Sua API Key do Monday.com

MondayAPIKey = "XXXXXXX"



' ID do quadro específico que você deseja acessar

Dim boardID As String



' Substitua pelo ID correto do quadro

boardID = "XXXXXX"



' Defina a URL da solicitação

url = "https://api.monday.com/v2" & boardID & "/items"



Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")

’ Obtém os valores da Planilha1 (A2 e B2)

Dim codigoAtingidos As String

Dim nomeTarefa As String

codigoAtingidos = ThisWorkbook.Sheets(“Planilha1”).Cells(2, 1).Value ’ A2

nomeTarefa = ThisWorkbook.Sheets(“Planilha1”).Cells(2, 2).Value ’ B2

' Dados a serem inseridos, formatados em JSON com base nas células da Planilha1

dataToInsert = "{""item_name"":""" & codigoAtingidos & """,""column_values"":{""Nome"":""" & nomeTarefa & """}}"



' Mensagens de depuração

Debug.Print "URL da solicitação: " & url

Debug.Print "Dados a serem inseridos: " & dataToInsert



' Configurar a solicitação HTTP como POST

With objHTTP

    .Open "POST", url, False

    .SetRequestHeader "Authorization", MondayAPIKey

    .SetRequestHeader "Content-Type", "application/json"

    .Send dataToInsert  ' Inserir os dados no corpo da solicitação

    

    If .status = 200 Then

        ' Exibir a mensagem de sucesso

        MsgBox "Informação inserida no Monday.com com sucesso!", vbInformation, "Inserção Bem-sucedida"

    Else

        ' Exibir mensagem de erro para outros códigos de status

        MsgBox "Erro ao inserir informações no Monday.com. Status: " & .status, vbExclamation, "Erro de Inserção"

    End If

End With



' Limpar o objeto HTTP

Set objHTTP = Nothing

End Sub