right click sheet tab>view code>copy\paste this. If not column A (1) then
change.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Target.Offset(12).Select
End Sub
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Mickey" <(E-Mail Removed)> wrote in message
news:B3CDEBF3-4837-440F-8FD9-(E-Mail Removed)...
>I am entering records of numbers which have formulas for calculation. I
>want
> to place these records every 12 rows and be able to automate the worksheet
> for our office personnel. How? HELP!! There can be anywhere from 50 to
> 150
> records depending on how many batches are produced in manufacturing plant.