Automatically blank a worksheet on startup

**phg** · 07-19-2007, 10:49 AM

I have a spreadsheet which has a macro that runs on workbook open. It does a web query to update data. What I want to do is blank the screen (I change the text to white on white) while the query is running so the user is not confused by the old data and then change the updated text back to normal colours after the query is complete.

However on startup the spreadsheet displays normally for a second or two before it is blanked.

I can start from a blank screen but I would like to allow the user to save the workbook (so they have the most recent data in case the query fails). Then when they open the workbook next they will be starting from the data sheet or wherever they were when they saved.

I tried using a BeforeClose event to blank the data but the blanking occurs before the prompt to save so it is disconcerting since it looks to the user like they are saving a blank sheet.

Is there any way to run the macro before anything is displayed?

This was previously posted on http://www.mrexcel.com/board2/viewto...125&highlight=

**royUK** · 07-19-2007, 01:52 PM

i would go with having a hidden sheet blank or with a simple message -"Data is being updated"

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    With Worksheets("Blank")
        .Visible = xlSheetVisible
        .Select
        'run query
        .Visible = xlSheetVeryHidden
        Worksheets("data").Select
    End With
    Application.ScreenUpdating = True
End Sub

Automatically blank a worksheet on startup

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Automatically blank a worksheet on startup

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions