Rancho NossaSenhora De Fátima André Coutinho

Caros, tenho um código em que acho o valor máximo de uma determinada coluna Private Sub UserForm_Initialize() Dim r As Long Dim d As Double r = Cells(Rows.Count, "A").End(xlUp).Row d = WorksheetFunction.Max(Range("A1:A" & r)) Dim ws As Worksheet Set ws = Worksheets("2017") Dim COD As Long COD = d + 1 TextBoxCOD = COD End Sub o código funciona perfeitamente, mas ao aplicar um filtro ele não esta considerando os valores ocultos no filtro para achar o valor máximo da coluna. Acredito que deva ser algo simples, mas devido ao meu nível básico em VBA não estou conseguindo resolver este problema. Será que alguém poderia me ajudar? Obrigado