Sub Picture1_Click()
    Cells(sor, oszlop).Calculate
End Sub