Este código está para VBA dentro de Excel, no para Visual Basic 6.5. En su pregunta usted pidió VBA y no VB, hay una diferencia.
Cerrar por favor esta pregunta aceptando este comentario 33039684 como contesta a la pregunta original fijada y abrir de nuevo una nueva pregunta que especifica una solución de VB 6.5 y no una solución de VBA.