pomocy vba - początkująca

hej

miałam dzisiaj pierwsze zajęcia z programowania, na poczatek vba w excelu, nie mam o ty zielonego pojęcia... nauczyciel narysowal serduszko w excelu i napisal apilkiacje ktora miala to serduszko powiekszac i zmniejszac... przepisalam cos z tablicy ale chyba źle ... b. prosze o sprawdzenie tego co tutaj mam, jak jest poprawnie, bo ja nigdy do tego nie dojde:

Sub walenty()
Dim k As Integer, i As Integer

For k = 1 To 100
For i = 1 To 100
Worksheets(1).Shapes(1).Height = Shapes(1).Height + 1
Worksheets(1).Shapes(1).Width = Shapes(1).Width + 1
DoEvents
Next

For i = 1 To 100
Worksheets(1).Shapes(i).Height = Shapes(i).Height - 1
Worksheets(1).Shapes(i).Width = Shapes(i).Width - 1
DoEvents
Next
Next k

End Sub

tablica była daleko nie wiem co jest czy "i" czy "1" po shapes
z gory dzieki za pomoc, dopiero zaczynam mam chyba prawo czegos nie wiedziec

Po shapes powinno być 1
Jest to odwołanie do nazwy formantu.

Oczywiście możesz napisać tam i, wcześniej przypisując mu 1, ale w sumie takie
wykorzystywanie nazw przydaje się w bardziej zaawansowanych przypadkach :)

Powodzenia w programowaniu! :d