№ страницы ячейки (Excel)

[Ilya Vasilyev]

Как узнать, на какой странице будет напечатана какая-нить ячейка листа Excel в рамках всей книги?

[sergmagunov]

Это прописывай в модуле:

Dim X As New WorksheetsEventsClass

Sub InitializeApp()
Set X.wrk = Application
End Sub

А это в модуле класса с именем WorksheetsEventsClass:

Public WithEvents wrk As Application

Private Sub wrk_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Sh.Name & Target.Address
End Sub

Запускай модуль и пробуй теперь вносить изменения в листах книги.

Сергей.