Originariamente inviato da oregon
Non mi pare ... hai visto il bene il codice suggerito? Specialmente la riga

Private Function sss(d As Variant)
certo ho provato con variant ma mi da lo stesso errore

@ wallrider era un esempio fatto a caso