Я хочу добавить карту в Excel, когда я выбираю место для увеличения

Question

Sub insertMap()
On Error GoTo err
    Shapes("gMap").Fill.UserPicture [gurl]
    Exit Sub
err: MsgBox "Error occured while generating the map" & vbNewLine & err.Description
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [CityName].Address Or _
Target.Address = [maptype].Address Or _
Target.Address = [zoomLevel].Address Then insertMap
End Sub

Пожалуйста, я хочу включить 50 сайтов на сайт, и при нажатии на любой сайт они делают увеличение сайта с цветами некоторых особых значений сайта. Большое спасибо