minimize Excel but view input box.

[wmtsub]

When using he code below it also minizes the input box.
I want to keep the input box viewable.



Sub MNMZ()
ActiveWindow.WindowState = xlMinimized

'want to keep this visable
Range("A2").AutoFilter 1, InputBox("Please Enter Site #")

i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(1, i))
If c.Column <> 1 Then
c.AutoFilter Field:=c.Column, Visibledropdown:=False
End If
Next
With Application
.WindowState = xlNormal
.Width = 883
.Height = 90
Application.ScreenUpdating = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End With
End Sub

 

[The_Macrotect]

That code works fine for me... what if you change the first line to:

application.visible=false

Whenever in the code you'd like the application to show up again, type this:

application.visible=true

Does this work?

 

[wmtsub]

Nope,
Same behavoir. What I was hoping for was when the spredsheet is opened it is not seen [hidded - minimized - etc] but the inout box would be.
It does this except teh input box is behind other windows and sometimes on the other monitor.