Need Pop-Up Window (Custom size)

jim may

Well-known Member
Jul 4, 2004
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?
Excel Workbook
2Totals New_Master -->>337,550455,628
3Totals This Sheet337,550455,628
4Difference Investigate-->>
Excel 2007
Cell Formulas
Excel Workbook
NameRefers To
Workbook Defined Names

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.
Is the pop-up only to view those cells, or do you envisage manipulating the data in Proof within the pop-up?
Upvote 0
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.
Upvote 0
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()
Set xxx = ActiveSheet.Pictures.Paste(Link:=True)
With xxx.ShapeRange
  .Fill.Visible = msoTrue
  .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()
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.
Upvote 0
Thanks for the response. I'll give this a shot 1st thing in the morning. Jim
Upvote 0

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

Upvote 0

Forum statistics

Latest member

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back