Realmente bueno, pero paral acoplarlo en mi hoja he tenido que hacer algunos cambios según lo que necesito, y al ejecutarlo me dá un error en
ActiveSheet.Shapes("GrConcepto").Visible = True y en
ActiveSheet.Shapes("GrConcepto").Visible = False
Seguro que es cualquier tontería pero no tengo ni idea de porque´me sale este error.
Podrías indicarme?
Gracias y un saludo.



