Use macro to click a shape to enlarge it

[Koala123]

Hi guys, I found a excel template which is pretty cool, one of its highlights is when you click a title tag it will enlarge and turn into orange, the title tags are built into excel shapes, I know there is macro behind them but I could't understand the logic of the codes. Can anyone please help me understand which part of the macro dose the enlarging trick here, and how does it work??? Thank you guys!

Below is the effect.

<sub>Sub Hotel_Bar1()


Range("City_Bar") = 1
AAA = Range("City_Bar1")


Sheets("Hotel").Select
Sheets("Hotel").Shapes("HBar 1").Select


With Selection
.Max = AAA
End With


Range("City_Bar") = Range("Destination_City3") - 1
If Range("City_Bar") = 0 Then Range("City_Bar") = 1


Range("a1").Select
End Sub</sub>

 

[Koala123]

Anyone please....?

 

[Koala123]

I am trying the codes line by line, but ran into a error when executing:

With Selection
.Max = AAA
End With

Can anyone please help me understand what does the above part do?