changing sheet based on cell value

[jslomax]

I have the value in cell IV1 being being changed via a DDE link on each sheet. I would like to go to cell A1 on the sheet number contained in cell IV1 (ie if the link provides a value of 3, I want to go to sheet 3 cell A1. I placed the DDE linked value on each sheet thinking the non-active sheets would not be updating.

Thanks

 

[Smitty]

How's this:

Private Sub Worksheet_Calculate()
    Application.Goto Sheets("Sheet" & Range("IV1")).Range("A1")
End Sub

Hope that helps,

Smitty

 

[jslomax]

it does not update. Any more ideas?

Thanks

 

[Smitty]

Gotcha,

I forgot to mention to use a linked cell that will calculate when your DDE cell updates.

Smitty

 

[jslomax]

I just got it to work using this code:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Range("iv1").Value = 1 Then Sheets("Sheet1").Activate
If Range("iv1").Value = 2 Then Sheets("Sheet2").Activate
If Range("iv1").Value = 3 Then Sheets("Sheet3").Activate
ActiveSheet.Range("a1").Select
End Sub

thanks for your help.