Apply code to other worksheets

[Metrazal]

I have a master sheet that will have some additional sheets
modified at various times. I want to have all my code saved in the
master sheet and applied to the other sheets from there. For example:
I want to have the following code saved in the "master" sheet but
applied to "invoice"
sheet.

mytext = "ALMFG: AL MFG TAX"
For a = 1 To 999
If Cells(a, "c") = mytext Then Cells(a, "m") = Cells(a, "e")
Next a
mytext = "SHMFG: SHELBY CO MFG TAX"
For s = 1 To 999
If Cells(s, "c") = mytext Then Cells(s, "l") = Cells(s, "e")
Next s
mytext = "PEMFG: PELHAM MFG TAX"
For p = 1 To 999
If Cells(p, "c") = mytext Then Cells(p, "j") = Cells(p, "e")
Next p
mytext = "HEMFG: HELENA MFG TAX"
For h = 1 To 999
If Cells(h, "c") = mytext Then Cells(h, "k") = Cells(h, "e")
Next h

How can I achieve this?


Thanks,

Met

 

[Guest]

if you want to provie it in one workbook, put it in a global sub in the
workbook-code.
if you want to provide it for n workbooks, create an add-in

 

[dbarelli]

You only have to activate the desire worksheet, for example:

Sheets("invoice").activate

or if you want to activate by its codename:

sheet3.activate

rgds.

 

[Metrazal]

I could not get the Sheets("Sjournal").Activate to work.
Please explain how I would do an add-in or another method.

Thanks,

Met

 

[Guest]

sub test()
mytext = "ALMFG: AL MFG TAX"
For a = 1 To 999
If ActiveWorkbook.Sheets.Cells(a, "c") = mytext Then
ActiveWorkbook.Sheets.Cells(a, "m") = ActiveWorkbook.Sheets.Cells(a, "e")
end if
Next a
....
endsub