"hurriance" wrote
in message ...

I had finished a macro, it works well in my computer. However,
when i try it in other computer, it does not work.

and the code cannot work is the following :

Range("I1").Select
ActiveCell.FormulaR1C1 = "Month"
ActiveCell.Offset(0, 1) = "=mid(sheet1!g2,4,2)"
ActiveCell.Offset(0, 1).Copy
ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks :=False, Transpose:=False

why did this situation occur? and How to sovle it?

This code worked fine for me in Excel 2003 with WinXP Home SP2. Are you
running it in the same workbook on both computers? What error are you
getting? If it's running in a different workbook on the non-working PC, is
there actually a sheet called "sheet1" in that workbook?