Private Sub Worksheet_Calculate(ByVal Target As Range) Dim x(1 To 9) As Integer x(1) = "1" x(2) = "2" x(3) = "4" x(4) = "8" x(5) = "16" x(6) = "32" x(7) = "64" x(8) = "128" x(9) = "256" Dim y As Integer Dim c As Integer Dim p As Integer Dim t As Integer c = Target.Column y = c & Column.Value p = H & Column.Value t = x(y) * p While (H! = Null) Range("I*").Value = t Loop End Sub

Any help is greatly appreciated.