Is there a way to clear a cell value without selecting the cell?

[stuckagain22]

I have a macro that runs on my sheet that clears the value of a cell in a hidden row. When I click on the object that launches the macro the whole screen moves down to where the hidden value is. It takes about .5 seconds to run the macro. I just don't like how the screen jumps down and then up again. I was wondering if there is any way to clear a cell value without "physically" jumping to the cell?

Here is my current code:

Sub LEVELS_RESETQUERY()
    Sheets("Levels").Select
    Range("D184").Select
    ActiveCell.FormulaR1C1 = "1"
    Sheets("Levels").Select
    Range("D3:D5").Select
End Sub

I would appreciate it if someone could advise if this is possible or not.

Thank you.

 

[shg]

Maybe just

Sub LEVELS_RESETQUERY()
    Worksheets("Levels").Range("D184").Value = 1
End Sub

You rarely need to select anything in VBA, and it's faster not to.

 

[Arcticwarrio]

something like: ?

Sub LEVELS_RESETQUERY()
    Sheets("Levels").Range("D184").FormulaR1C1 = "1"
    Sheets("Levels").Range("D3:D5").Select
End Sub

 

[mikerickson]

There is no need to select

Sub Levels_ResetQuery()
    With Sheets("Levels")
        .Range("D184").Value = 1
        .Range("D3:D5").ClearContents
    End With
End Sub