Working With A New Window in Excel

[jim may]

What I've been trying to do might not be possible, but I'll ask anyway...

In my File on a Given Worksheet named "Main" - I clicked on View - New Window

So Now I have MyFileName.xlsm:1 and also (now, not before) MyFileName.xlsm:2.

Originally on my Main Sheet (Now +":1")- I had Sheet1, Sheet2 and Sheet3 and still in my
Now + ":2" window I have the same 3 Sheets, No Surprises so far...

MY Question..

In my ":1" Window Can I hide Sheet1 and Sheet3 - So that ONLY Sheet2 is Showing?

AND ALSO

In my ":2" Window Can I hide Sheet1 and Sheet2 - So that ONLY Sheet3 is Showing?



I'm trying to do this ALL in Code.

Thanks in advance.

Jim

 

[Yongle]

I do not think the same workbook can have a dual personality like that!
- close your left eye and look in the mirror and then open both eyes in your reflection leaving the physical left closed!

- try doing it without VBA (Excel does not allow it)

perhaps...
Create a temporary copy of the file
- and refresh as required

or ...
If you simply want to view some cells you could use the camera tool
- data in the pictures is dynamic
- if a large sheet could have multiple viewable "pictures"
- automate with VBA if lots of changing "photo requests"
etc

 

[jim may]

Yeah, look a bit hopeless to do or accomplish, Thanks fir your comments. Jim

 

[Yongle]

A dynamic picture which follows the cursor
- and it takes less than 1 minute to set up and test!

1, Open a new workbook and add Sheet2

2. place this formula in cell A1 in Sheet2
=ADDRESS(ROW(),COLUMN(),4)

3. drag across to column N and down to row 200 - those cells now contain their own address

4. place code below in SHEET module of Sheet1

5. go back to Excel and click on cell A12 in Sheet1

6. click on cell A13 etc

7. scroll to cell A60 and click on it etc


place code below in SHEET module of Sheet1

[COLOR=#006400]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/COLOR][I][COLOR=#006400][/COLOR][/I]
    If Target.Count = 1 Then FollowMe
[COLOR=#006400][I]End Sub[/I][/COLOR]

[COLOR=#006400]Private Sub FollowMe()[/COLOR]
    Const pic = "Sheet2_Selfie"
    Dim r As Long, rng As Range, cel As Range
BurnPreviousShot:
    On Error Resume Next
    ActiveSheet.Shapes(pic).Delete
SheetSelfie:
    r = ActiveCell.Row
    Set rng = Sheets("Sheet2").Cells(r, 1).Resize(10, 14)
    rng.CopyPicture
DevelopAndPrint:
    Set cel = ActiveWindow.VisibleRange(2, 2)
    On Error GoTo 0
    On Error GoTo Handler
    Application.EnableEvents = False
    cel.PasteSpecial
NameAndPlace:
    With Me.Shapes(Me.Shapes.Count)
        .Name = pic
        .Left = cel.Left
        .Top = cel.Top
    End With
Handler:
Application.EnableEvents = True
[COLOR=#006400]End Sub[/COLOR]