Как установить заголовок в таблице запросов Excel VBA

Question

Я работаю с таблицей запросов в Excel VBA, и у меня возникают трудности при настройке заголовка сообщения.Любые идеи?

     With ActiveSheet.QueryTables.Add("OUR URL/token")
        .PostText = "Username= SITE PASSWORD "
        .RefreshStyle = xlOverwriteCells
        .SaveData = True
        .Refresh False
        .strUrl = "https;// OUR API URL"
     End With

Я знаю, как установить поля сообщения, но этот протокол требует от меня установить заголовок.

Спасибо