Public Sub TestCreateLeanKitCard() Dim lkClient As New LeanKit_API_ExcelHelper.Client Dim accountName As String Dim accountEmail As String Dim accountPassword As String Dim boardId As LongLong Dim cardId As LongLong Dim laneId As LongLong Dim title As String Dim description As String Dim cardType As String Dim customIcon As String Dim priority As Long Dim parentCardId As LongLong Dim cardSize As Long Dim cardIndex As Long Dim isBlocked As Boolean Dim blockedReason As String Dim externalCardId As String Dim externalSystemName As String Dim externalSystemUrl As String Dim startDate As String Dim dueDate As String Dim tags As String Dim assignedUsers As String Dim commentText As String accountName = "your-account-name" accountEmail = "your@email-address.com" accountPassword = "your-p@ssw0rd" boardId = 63454169 laneId = 0 ' Enter the lane id, or leave as 0 to create card in default drop lane title = "Excel Helper Test Card (from Excel)" description = "Description of card" cardType = "Task" customIcon = "Bug" ' Optional Custom Icon (formerly named "class of service"), leave empty for no custom icon priority = 1 parentCardId = 0 cardSize = 0 cardIndex = 0 externalCardId = "123" externalSystemName = "Excel Helper" externalSystemUrl = "" isBlocked = True blockedReason = "Because reasons" startDate = "2015/07/25" ' Date format should match the account date format settings dueDate = "2015/08/25" ' Date format should match the account date format settings tags = "tag1, tag2" assignedUsers = "assigned@email-address.com" ' Comma-separated list of email addresses commentText = "Testing a comment" lkClient.Initialize accountName, accountEmail, accountPassword cardId = lkClient.AddCard(boardId, title, description, priority, cardSize, cardIndex, _ laneId, cardType, customIcon, parentCardId, isBlocked, blockedReason, _ externalCardId, externalSystemName, externalSystemUrl, _ startDate, dueDate, tags, assignedUsers) lkClient.AddCardComment boardId, cardId, commentText MsgBox "Created card: " & cardId End Sub