Need Pop-Up Window (Custom size)

[jim may]

I have this small footprint in my SheetName "Proof" (the 4th worksheet in the Tab order). I'd like to have a command button on another worksheet which, when clicked would cause the above Proof sheet to POP-UP in a small window above my originating sheet. I'd like th size of this POP-UP to be only as wide as the cells A:C, and some larger than the rows 1:8, so that on Rows 6-8 I can enter a Command button to CLOSE it. I haven't got a clue where to start. Can someone assist me?
Jim

Excel Workbook
	A	B	C
1	Proof>>	Receits	Disbursements
2	Totals New_Master -->>	337,550	455,628
3	Totals This Sheet	337,550	455,628
4	Difference Investigate-->>
5	Immediately	-	-
Proof

Excel 2007

Cell Formulas
Range	Formula
B2	=SUM(Receipts)
B3	=Monthly_Roll_Up!AP14
B5	=B2-B3
C2	=SUM(Disbursements)
C3	=Monthly_Roll_Up!AP60
C5	=C2-C3

Excel Workbook
Name	Refers To
Disbursements	=New_Master!$L$29:$AU$76
Receipts	=New_Master!$L$7:$AU$26
Workbook Defined Names

 

[p45cal]

Is the pop-up only to view those cells, or do you envisage manipulating the data in Proof within the pop-up?

 

[jim may]

Thanks p45cal

All changes I make to Sheet1 are to be auto-reflected on my Sheet2.

The Proof (Sheet) is a method where I insure that Sheet1 and Sheet2 are
always in balance. On My sheet2 I wanted to place a command-button, so
I can periodically press it to view the Proof Window ONLY.. No input, just
a way to check that everythings is OK, and In Balance. Wanted a command-buttone also on Proof sheet to Close it once I inspect the results.

Tks for your assistance.
Jim

 

[p45cal]

Here's a possible way to start; Name the range on the Proof sheet you want to view, say, CheckRange.
Paste the following into a new standard module:

Dim xxx As Object 'global variable
Sub blah()
Range("CheckRange").Copy
Set xxx = ActiveSheet.Pictures.Paste(Link:=True)
With xxx.ShapeRange
  .Fill.Visible = msoTrue
  .Fill.Solid
  .Fill.ForeColor.SchemeColor = 43
  .Fill.Transparency = 0#
  .Line.Weight = 1.5
  .Line.DashStyle = msoLineSolid
  .Line.Style = msoLineSingle
  .Line.Transparency = 0#
  .Line.Visible = msoTrue
  .Line.ForeColor.SchemeColor = 64
  .Line.BackColor.RGB = RGB(255, 255, 255)
  .Left = Cells(1, ActiveWindow.ScrollColumn + 1).Left
  .Top = Cells(ActiveWindow.ScrollRow + 1, 1).Top
End With
xxx.OnAction = "Macro66"
End Sub

Sub Macro66()
xxx.Delete
End Sub

Create a button on the sheet you want the pop-up to appear on and assign to it the macro blah.
Click the button to show the pop-up, click the pop-up itself to delete it.

I've chosen various aspects myself, these can of course be tweaked; positioning, colour, transparency, border etc. There's no error checking to stop you producing multiple pop-ups, so clicking on a pop-up to delete it only works on the most recently created one. (It would be easy to add a line to blah to delete a pre-existing pop-up if one existed.)

The pop-up is live, so changes in the range on Proof will be reflected straightaway - no need to delete and bring up a fresh pop-up.

Of course, it doesn't have to be a button-click to run blah to bring the pop-up up, it could be some sheet event. Likewise a sheet event may cause it to be deleted too.

 

[jim may]

Thanks for the response. I'll give this a shot 1st thing in the morning. Jim

 

[jim may]

p45cal,

Thank you, thank you; this is soooooo great. Thanks for taking me to a new level.

Jim