Public Sub PopupCountingWorksheet()
Dim rngActiveCell As Range
Dim lngCellTop As Long
Dim lngCellLeft As Long

ActiveWindow.WindowState = xlNormal
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled

'Save position information for later.
With ActiveCell.Offset(1, 1)
lngCellLeft = (.Left + 30) * ActiveWindow.Zoom / 100
lngCellTop = (.Top + 25) * ActiveWindow.Zoom / 100 + 10
End With

ActiveWindow.NewWindow 'Create new (popup) window.

'Show the "counting" worksheet in the new window.
ActiveWorkbook.Sheets("counting").Select

'Position the popup worksheet at the
'lower right corner of the active cell.
With ActiveWindow
.Zoom = 75 'Size the new window at 75%.
.Width = 250
.Height = 200
.Left = lngCellLeft
.Top = lngCellTop
End With
End Sub

How is the "counting" worksheet involved in converting time from one format
to another ("hh:mm" to "hh.hh") as per your other posts?

It sounds like you are doing multiple things with this application.
--
Regards,
Bill


"Jonsson " wrote in message
...
Hi,

Thanks for helping me out!

I have a sheet in the mainwoorkbook called "counting" that I would like
to pop up just as you suggested in the erlier post.
If that is possible, it would be great, otherwise not. It won´t work to
create a new woorkbook.

Is it possible and if, how do I do it?

//Thomas


---
Message posted from http://www.ExcelForum.com/