Tiedostonimen kutsu soluun.

soluihin kaavat
taulukon nimi =Taulukonnimi()
sivujen lkm =Sivujenmäärä()

moduuliin...

Function Taulukonnimi() As String
Taulukonnimi = ThisWorkbook.Name
End Function

Function Sivujenmäärä() As Integer
Dim Vaaka As Integer
Dim Pysty As Integer
Application.Volatile True
Vaaka = ActiveSheet.HPageBreaks.Count 1
Pysty = ActiveSheet.VPageBreaks.Count 1
Sivujenmäärä = Vaaka * Pysty
End Function

Keep EXCELing
@Kunde

Kirjoitin nuo kaavat omiin soluihinsa.
Vastauksena sain kumpaankin soluun #NIMI?
Taulukolla on nimi ja esikatselussa sivuja 3.
Mikä meni pieleen?

koodit liittämättä moduuliin...