please help simplify
 

thanks Tom - this is what i was trying to do:
there is some information in a particular cell i was referencing (las
2 digits). the way i had it, it found the last 2 digits in the cel
and i had it enter it into D8 then copy the value in D9:D63. this wa
the information on page 1, so i copied the macros for page 2, 3, etc.
what i really would like it to do is find that particular cell on eac
page and enter the last 2 digits in each row. the cells i need to us
the last 2 digits are in A1, A58, A115, etc.
Any ideas would be greatly appreciated

--
acarri
-----------------------------------------------------------------------
acarril's Profile: http://www.excelforum.com/member.php...fo&userid=1002
View this thread: http://www.excelforum.com/showthread.php?threadid=26204

please help simplify
 

for each sh in Worksheets
sh.Activate
sh.Columns(4).Insert
Range("D1:D57").Value = Right(Range("A1").Value,2)
Range("D58:D114").Value = Right(Range("A58").Value,2)
set rng = Activesheet.Range
Range("D115:D" & rng.rows(rng.rows.count).row).Value = _
Right(Range("A114").Value,2)
Next

Would be another guess at what you want.

--
Regards,
Tom Ogilvy

"acarril" wrote in message
...

thanks Tom - this is what i was trying to do:
there is some information in a particular cell i was referencing (last
2 digits). the way i had it, it found the last 2 digits in the cell
and i had it enter it into D8 then copy the value in D9:D63. this was
the information on page 1, so i copied the macros for page 2, 3, etc.
what i really would like it to do is find that particular cell on each
page and enter the last 2 digits in each row. the cells i need to use
the last 2 digits are in A1, A58, A115, etc.
Any ideas would be greatly appreciated.


--
acarril
------------------------------------------------------------------------
acarril's Profile:
http://www.excelforum.com/member.php...o&userid=10027
View this thread: http://www.excelforum.com/showthread...hreadid=262049