Private Sub Workbook_Open() On Error Resume Next wsKT.PivotTables("ktMena").PivotFields("Meno").CurrentPage = wsKT.Cells(2, 2).Value If Err.Number <> 0 Then MsgBox "Chyba pri filtrovaní kontingenčnej tabuľky", vbExclamation End Sub
Excel - funkcia username()