Sub Formuly()

CzyFormula = ActiveWindow.DisplayFormulas

ActiveWindow.DisplayFormulas = Not CzyFormuła

End Sub

Sub tabliczka_mnozenia()

For WIERSZ = 1 To 10

For KOLUMNA = 1 To 10

Cells(WIERSZ, KOLUMNA) = WIERSZ * KOLUMNA

Next KOLUMNA

Next WIERSZ

End Sub

Sub Przycisk()

If ActiveWindow.DisplayFormulas = True Then

ActiveWindow.DisplayFormulas = False

Else

ActiveWindow.DisplayFormulas = True

End If

End Sub

Sub Task()

Test = MsgBox("Czy chcesz zamknac okno", vbYesNoCancel)

End Sub