If Selection is one cell

A

art

Hello:

Hoe do I write the code, if the selection is anything but one cell, So if I
select a range all thew whole page, or a tab or a button etc. it should
ignore everything, only when I select one cell then it should do ....

Thanks

Art
 
H

Héctor Miguel

hi,Art !
Hoe do I write the code, if the selection is anything but one cell
So if I select a range all thew whole page, or a tab or a button etc.
it should ignore everything, only when I select one cell then it should do ...
Click to expand...

i.e.

Sub mySub()
If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Count > 1 Then Exit Sub
MsgBox "What's next ?", , ""
End Sub

hth,
hector.
 
A

art

Thanks. But when I select the whole sheet, I get the error, overflow. How can
I Correct this?
 
H

Héctor Miguel

hi, Art !
... when I select the whole sheet, I get the error, overflow.
How can I Correct this?
Click to expand...

for xl2007 change this:

If Selection.Count > 1 Then Exit Sub

to this:

If Selection.CountLarge > 1 Then Exit Sub

regards,
hector.

__ previous __
 
R

royUK

You must be usng Excel 2007, there are too many cells for count to
handle.
Why select all cells I doubt if all the cells in 2007 will ever be
used, use UsedRange or CurrentRegion insteadnstead
 
J

Jacob Skaria

Sub Macro()
If Selection.Columns.Count <> 1 Or _
Selection.Rows.Count <> 1 Then Exit Sub
'your code starts here


'/your code end here
End Sub


If this post helps click Yes
 
J

Jacob Skaria

Sub Macro()
If Selection.Rows.Count <> 1 Or _
Selection.Columns.Count <> 1 Then Exit Sub
'your code starts here


'/end
End Sub

If this post helps click Yes
 
Top