James Bond respondió:
Probé tu macro y a mi me funciona bien, este error aparece cuando declaras una variable de una manera por ejemplo single y la celda donde la usas es un texto (string) entonces como las variables no coincide te envía este error, cambia la variable...