Import JSON to excel

Public Sub customjson()
mydata = "{'data':[{'id':1,'name':'Eredivisie','active':true},{'id':2,'name':'Jupiler League','active':true},{'id':4,'name':'Bundesliga','active':true}]}"
Set JSON = ParseJson(mydata)
i = 2
For Each Item In JSON("data")
Sheets(1).Cells(i, 1).Value = Item("id")
Sheets(1).Cells(i, 2).Value = Item("name")
Sheets(1).Cells(i, 3).Value = Item("active")
i = i + 1
Next
MsgBox ("complete")
End Sub

'Credits - https://codingislove.com