VBA achar max considerando valores ocultos por filtro

[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