Macro non funzionante

macro non funzionante
di lalabay (utente non iscritto) data: 17/04/2013 16:04:30
salve, ho un problema con questa macro:

sub inserisci_aggiungi()
Foglio1.[A1] = Foglio1.[A1] & Trim(ActiveCell)
end sub

in una cartella di prova funziona perfettamente, ma quando la applico nella mia cartella di lavoro mi restituisce ERRORE DI RUN.TIME "424" NESSUN OGGETTO.

non riesco a capire il perchè, qualcuno può darmi qualche dritta?
di Zasso data: 17/04/2013 16:14:25
sicuro che nella cartella dove stai lavorando il foglio si chiami Foglio1?
di lalabay (utente non iscritto) data: 17/04/2013 16:59:30
no, non si chiama foglio1, ma ho provveduto a modificare il nome del foglio e il range.
di Vecchio Frac data: 17/04/2013 20:06:04
L'errore appare perchè non è il nome del foglio a essere diverso, è il suo CodeName, cioè il nome che compare con Alt-F11 (per aprire l'editor del codice), Ctrl-R (per la finestra dei progetti).
Correggi come di seguito.
sub inserisci_aggiungi() Sheets("nome_del_foglio").[A1] = Sheets("nome_del_foglio").[A1] & Trim(ActiveCell) end sub
di l (utente non iscritto) data: 18/04/2013 08:27:20
grazie mille, corretto e capito!