If Cell A1 is Active than Type Some Formula in Cell A5

[Legacy 185509]

Hi
Please help me do this
I have over 100 cells if any one is active at one time, it will write different formula in cell A5
if A1 is active it will write may be =2+2
if A3 is active it will write in A5 =S3

and so on....

 

[tweedle]

That might look like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Worksheets("Sheet3").Range("A5")
    Select Case Target.Address
    Case Is = "$G$9"
        rng.Formula = "=AD1"
    Case Is = "$G$10"
        rng.Formula = "=AD2"
    Case Is = "$G$11"
        [COLOR=royalblue]Set rng = Worksheets("[B]Sheet4[/B]").Range("A5")
[/COLOR]        rng.Formula = "=IV9"
    End Select
End Sub

This is liable to get convoluted rather quickly.

 

[pgc01]

Hi

... or use another output range:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng1 As Range, rng2 As Range
 
    Set rng1 = Worksheets("Sheet3").Range("A5")
    Set rng2 = Worksheets("Sheet4").Range("E3")
 
    Select Case Target.Address
        Case Is = "$G$9"
            rng1.Formula = "=AD1"
        Case Is = "$G$10"
            rng1.Formula = "=AD2"
        Case Is = "$G$11"
            rng2.Formula = "=IV9"
    End Select
End Sub

 

[Legacy 185509]

any reason why this work on my home computer & not at my work computer
both are same version, both are office 2007
please help

That might look like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Worksheets("Sheet3").Range("A5")
    Select Case Target.Address
    Case Is = "$G$9"
        rng.Formula = "=AD1"
    Case Is = "$G$10"
        rng.Formula = "=AD2"
    Case Is = "$G$11"
        [COLOR=royalblue]Set rng = Worksheets("[B]Sheet4[/B]").Range("A5")
[/COLOR]        rng.Formula = "=IV9"
    End Select
End Sub

Thank you that will save lots of my time

Set rng2 = Worksheets("Sheet4").Range("E3")
[/CODE]

This is liable to get convoluted rather quickly.

Thanks again that was quick