please help simplify

[acarril]

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 D963. 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

 

[Tom Ogilvy]

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

Would be another guess at what you want.