Selection.Cells.Count = 0 -- Is this possible?

[phantom1975]

I'm sure this is quite simple, but I am having a heck of a time finding the answer. I would like some code that would have zero cells selected. Here's an example of my heartache:

Range("A1:D4").Copy Range("F1:I4")
' UGH!  it sure looks ugly to have a bunch of cells selected!!!

Range("A1").Select
' Well, this is better, but I would prefer NO cells selected

Range("A1").Activate
' This does the same thing too!!!

Application.Goto Range("A1")
' So does this.

I guess I am looking for the equivalent of the ESC key to cancel out the CUTCOPYPASTE mode.

Help me Obi-wan Kenobi....you're my only hope.

 

[erik.van.geit]

Hi, Billy,

Currently working on a project, where I use this.

Sub DeSelect()
    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    Range("Z12345").Select
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollRow = 1
    .EnableEvents = True
    .ScreenUpdating = True
    End With
End Sub

kind regards,
Erik

PS: or did you really mean no cells selected?
then you will need an invisible shape to select

 

[phantom1975]

That is a clever bit of code to accomplish the task. I have usually created a cell with a super tiny row height and column width to do the same. I am really hoping to select zero cells though. I want to avoid firing the SelectionChange event. I've got plenty of code, etc to do the job, but like your code suggests, it takes a few lines of code to accomplish what should be a relatively easy task.

Here's a bit of code that I use for the ScreenUpdating, etc.

Public Sub Trifecta(Status As Boolean)


    With Application
    
        .EnableEvents = Status
        .DisplayAlerts = Status
        .ScreenUpdating = Status
        
    End With
    
    Debug.Print "Trifecta Status:  " & Status
    

End Sub

Glad to hear from you again! Ecc 4:20 -- Observe the opportunity.

 

[erik.van.geit]

and glad to answer you: never forgot that you were my first hero!!

nothing at all selected: then you can use

ActiveSheet.Shapes("MyShape").Select

works for me when placed outside view

the window will stay were it is