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

"Metrazal" wrote:


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

Thanks,

Met


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=515726