>>147
>という例を見かけますが、この場合 ActiveSheet が Sheet1 という保証はあるのでしょうか。

当然そんな保証はない。

「シート名は可変です。」と書いてあるが、ではソノシート名はいつどこで指定するのか？

あらかじめ指定しておくと言うなら、

Dim SheetName As String

Private Sub Setup( )
　SheetName = "Sheet1"
End Sub

Private Sub Worksheet_Calculate( )
　Worksheeets(SheetName).操作( )
End Sub

でいい。
Sheet1 がないケースなどがあるなら、適切なエラー処理が必要。