解説書「Excelで学ぶ物理シミュレーション」が変数定義してなかったので、変数定義しながらやってるのですが、
以下の「ActiveSheet〜」のところで、を「変数が定義されていません」とエラーが出てしまいます。

ActiveSheetはどう変数定義すればよろしいのでしょうか？
--
Sub particles()
Worksheets(2).Activate

Dim x0, y0, x1, y1, x2, y2, r As Integer

x0 = 300
y0 = 300
x1 = 0
y1 = 0
x2 = 0
y2 = 100
r = 20

AcitiveSheet.Shapes.AddShape(msoShapeOval, x0 + x1 - r, y0 + y1 - r, 2 * r, 2 * r).Select
(以下略)