Create new window and navigate in that window to a particular cell

[sriche01]

Hello all,

I am trying to execute some code, part of which should be opening a new window and navigating to a particular location.

I was trying:

            ActiveWindow.NewWindow.Activate
            Application.Goto Reference:=ActiveWorkbook.Worksheets("Profile Path").Range("D3"), Scroll:=False

all it does is open a new window, then goes back to window 1 and navigates. The problem is window 1 contains all the view settings like freeze panes. The window I am trying to create is to a sheet that gives a snapshot - kind of a popup if you will - that the user can then close that window after viewing the snapshot and they would be where they originated. For some reason, the Goto method always wants to work in window 1. Can anyone help me?
Thank you!

 

[sriche01]

Typically our users have two monitors and two windows for the same workbook open at once, each containing a separate worksheet, working through data lists. The worksheet I want to navigate to in a new window (either 2nd or 3rd depending on what is already open) is a summary sheet giving more detail on an individual item in the worksheet Sales Plan. I was hoping I could have it open like a pop up window for quick reference, then close once the user understands what they are looking at. This way, they can leave their original working sheets open where they left them in the background.

I was originally thinking of using a hyperlink type method and am reexamining that, but excel is funny with hyperlinks. If you are in any window but 1, hyperlinks will open in window 1 (a separate window). If you are in window 1 and click a hyperlink it will navigate away from where you are still in window 1. Bottom line, it is tricky for users to set up their flow and get back to where they started.

Really, this is crazy how complicated this has all become. It seems like it should be a simple matter to tell excel to
1. open a new window in the workbook and
2. navigate to the worksheet and cell of my choosing in that new window

I don't know if I am just missing something or if this truly is a bizarre request of mine.

 

[JLGWhiz]

It probably is simple for someone who works with two monitors consistently, but I don't and am not sure how navigation to different sheets on separate monitors, or even the pop-up screen you mentioned, would work. What I have provided so far is about as far as I can go without doing a lot of research and experimenting, so I will just drop out and maybe someone else with more experience in that area will pick up on the thread and help out. If nobody jumps in within a day or so, just start a new thread beginning where we left off on this one.
regarfds, JLG

 

[sriche01]

It probably is simple for someone who works with two monitors consistently, but I don't and am not sure how navigation to different sheets on separate monitors, or even the pop-up screen you mentioned, would work. What I have provided so far is about as far as I can go without doing a lot of research and experimenting, so I will just drop out and maybe someone else with more experience in that area will pick up on the thread and help out. If nobody jumps in within a day or so, just start a new thread beginning where we left off on this one.
regarfds, JLG

Thank you so much for trying. Sorry for sounding impatient. ? merry Christmas.

 

[Jaafar Tribak]

Thank you so much for trying. Sorry for sounding impatient. ? merry Christmas.

Does this work ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim itm As Range
    Dim rng As Range
    
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("Sales_Plan_Item")) Is Nothing Then
            'somewhere in here I'd like a command to create a new window in which to run the
            'code below
            Set itm = Application.Selection
            ThisWorkbook.NewWindow.Activate
            Set rng = ThisWorkbook.Worksheets("Profile Path").Range("D3")
            rng.Value = itm.Value
            Application.Goto rng, True
        End If
    End If
    
End Sub

 

[sriche01]

I will try when I'm back in the office. Thank you!