right click sheet tabview codeinsert thissee how it works and change to
suit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
Target.Offset(, Target.Value) = Target * Target

End Sub

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...

Best done with a worksheet_change macro using an if or selectcase
statement within

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
I'm trying to do the following:

If A1 = 2, then starting at position C5, move 2 cells to the right and
populate with a value
If A1 = 3, then starting at position C5, move 3 cells to the right and
populate with a value
etc...

Appreciate any ideas

Thanks,
Sven