Zakázat přepočet sešitu a u listů kdy chceš přepočet zadat:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
vyzkoušejcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
vyzkoušejcitovat