VBA - Expotere kalender fra outlook til excel

Dette expotere mine egne aftaler fra outlook ind i excel

Dim olApp As Object
    Dim olNS As Object
    Dim olFolder As Object
    Dim olApt As Object
    Dim NextRow As Long
   
    Set olApp = CreateObject("Outlook.Application")
   
    Set olNS = olApp.GetNamespace("MAPI")
   
    Set olFolder = olNS.GetDefaultFolder(9) 'olFolderCalendar
   
    Range("A1:D1").Value = Array("Subject", "Start", "End", "Location")
   
    NextRow = 2
   
    For Each olApt In olFolder.Items
   
    If CDate(olApt.Start) > "01-08-2017" Then
   
        Cells(NextRow, "A").Value = olApt.Subject
        Cells(NextRow, "B").Value = olApt.Start
        Cells(NextRow, "C").Value = olApt.End
        Cells(NextRow, "D").Value = olApt.Location
        NextRow = NextRow + 1
    End If
    Next olApt
   
    Set olApt = Nothing
    Set olFolder = Nothing
    Set olNS = Nothing
    Set olApp = Nothing
   
    Columns.AutoFit

Men jeg vil gerne have et møde lokale "Myren" som har sin egen kalender ind i excel arket?

Hvordan gør man det?