Hallo Zusammen,
Ich habe folgendes als Grundlage:
http://www.michael-schwimmer.de/vba109.htm
Nun würde ich gerne die dort angezeigte Landkarte anpassen und eine neue Karte, in der Bundesländer angegeben sind hernehmen.
In der letzten Zeile des folgendes Codes bekomme ich eine Fehlermeldung:

Private Sub cmdAddItems_Click()
Dim i As Long
Dim a As Long
Dim objGeo As New clsGeo
With objGeo
' Längengrad Karte links unten
.LonLeftBotton = Me.Range("B2")
' Breitengrad Karte links unten
.LatLeftBotton = Me.Range("B3")
' Längengrad Karte rechts unten
.LonRightBotton = Me.Range("C2")
' Breitengrad Karte rechts unten
.LatRightBotton = Me.Range("C3")
' Längengrad Karte links oben
.LonLeftTop = Me.Range("E2")
' Breitengrad Karte links oben
.LatLeftTop = Me.Range("E3")
' Längengrad Karte rechts oben
.LonRightTop = Me.Range("D2")
' Breitengrad Karte rechts oben
.LatRightTop = Me.Range("D3")
' Shapeobjekt übergeben (Tabellenblattname
' und Name der Karte aus dem Blatt)
.Map = Worksheets(CStr(Me.Range("B4"))).Shapes( _
CStr(Me.Range("B5")))

Die Fehlermeldung lautet:
ungültiger Prozeduraufruf oder ungültiges Argument.
Könnte mir hier bitte jemand weiterhelfen wie ich das neue Bild einfügen kann?
vielen Dank und viele Grüße