Cioè tu dici ad esempio
Codice:
Function Pippo(s As Sheets, d As Sheet)
Dim cnt As Integer
On Error Resume Next
cnt = Sheets(s).Range("A2:A1500").SpecialCells(xlCellTypeVisible).Count
Sheets(d).Range(A1).Value = cnt;
end Function
Così costringo il resume next nella funzione, ma poi come la richiamo nel "main"? non so a che oggetto applicarlo...
(conta che io sto lavorando in un unico modulo ed ho messo la funzione in testa al codice, prima di sub Modulo1())
Codice:
Pippo("foglio1","foglio2")
Mi manca un passaggio (scusa se faccio domande banali)