Eu tenho esse código abaixo dentro do Private Sub Worksheet_Change(ByVal Target As Range)

Set wsAtiva = ThisWorkbook.ActiveSheet
UltL = wsAtiva.Cells(Rows.Count, 3).End(xlUp).Row

Estarei usando o wsAtiva e UltL dentro do Private Sub Worksheet_Calculate(), pois preciso inserir novamente essas duas linhas acima dentro do Private Sub Worksheet_Calculate() ?

Obrigado deste já !