Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userforms keep popping up, need code to stop it
Hey
I've tried unsuccessfully to stop userforms coming up in the following code. What can I put in in the different places to stop the userforms appearing (or the suerform appears and the clcik on the userform button to happen automatically with screen application off.) Thanks. Sub opensesame() Dim change As Variant clear2 Application.Dialogs(xlDialogOpen).Show USERFORM APPEARS HERE Application.ScreenUpdating = False change = ActiveWorkbook.Name Cells.Select Selection.Copy ActiveWindow.ActivateNext USERFORM APPEARS HERE Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Workbooks(change).Activate USERFROM APPEARS HERE Application.CutCopyMode = False Application.DisplayAlerts = False ActiveWorkbook.Close USERFROM APPEARS HERE Application.ScreenUpdating = True On Error Resume Next Set rng = Application.InputBox( _ "Select Range to Examine, this will be the range over which your previous grid ran", Type:=8) Application.ScreenUpdating = False On Error Resume Next If rng Is Nothing Then Exit Sub rng.Select Selection.RowHeight = 15 Selection.ColumnWidth = 1.5 rng.Select etc etc etc End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I stop the end user License agreement from popping up | Excel Worksheet Functions | |||
How to stop outlook from popping up on an excel spreadsheet | Excel Discussion (Misc queries) | |||
How to stop message popping up before open the excel? | Excel Discussion (Misc queries) | |||
How do I make the clipboard stop automatically popping up? | Excel Discussion (Misc queries) | |||
How do i stop the End user License Agreement from Popping Up upon. | Excel Discussion (Misc queries) |