tasto per eseguire macro ripetuta su n fogli che esegue macro solo su un foglio specifico

Mi spiego,

Ho un foglio con una formula che funziona solo se nelle celle ci sono caratteri e non formule, avendo un file di 10 nominativi per 35 giorni con formule in ogni cella e dovendo applicare una formula che mi conti il risultato che esce in automatico nelle singole celle me che non riesce perchè presente formula. Ho predisposto una macro con tasto che mi copia solo valori delle celle interessate su celle ove verranno fatti i calcoli.

Volevo riproporre questo tasto su tutti i fogli, tale tasto xò invece di eseguire il comando solo sul foglio base, lo esegue solo sugli sugli altri fogli!!!!
Come ovviare?

ciao

ammettiamo che il tuo foglio base sia il "Foglio1"

---

Sub copia()
'
' copia Macro
'

If ActiveSheet.Name = "Foglio1" Then Exit Sub
Range("F19:R28").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1").Select
End Sub

---

Avrai letto altri post miei...le formule hanno un odio particolare per me...
non riesco a farla funzionare
il foglio interessato si chiama
CALCOLA S-D
le celle interessate del foglio calcola sd ove si devono copiare ed incollare solo i valori sono intervallo :
F41:AQ70

ho provato a variare con questi parametri ma nulla....

grazie

ciao

mi capita alle volte di scaricare diversi file in una giornata
quindi non saprei se ho gia' visto o no questi,in quanto finita l'elaborazione e proposto il risultato , se non e' una cosa intressante vanno tutti a finire nel calderone, che ogni tanto la pasta se e' troppa la butto
quindi posta un file di questi e spiega bene cosa bisogna fare e come vuoi il risultato, con tutte le sue varianti proplematiche

Grazie

allego

ciao

da come o capito

---

Sub copia()
'
' copia Macro
'

If ActiveSheet.Name = "Foglio1" Then Exit Sub ''se sei in foglio1 la sub non viene eseguita
Range("E19:Q28").Select
Selection.Copy
Sheets("foglio1").Range("F1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1").Select
End Sub

---