If Selection is one cell
 

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

If Selection is one cell
 

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 ...

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.

If Selection is one cell
 

Something like this

Code:
--------------------

If Selection.Count 1 Then MsgBox Selection.Count

--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site' (http://www.excel-it.com/)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=99941

If Selection is one cell
 

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



"Héctor Miguel" wrote:

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 ...

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.

If Selection is one cell
 

hi, Art !

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

for xl2007 change this:

If Selection.Count 1 Then Exit Sub

to this:

If Selection.CountLarge 1 Then Exit Sub

regards,
hector.

__ previous __
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 ...

i.e.

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

If Selection is one cell
 

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


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site' (http://www.excel-it.com/)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=99941

If Selection is one cell
 

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
---------------
Jacob Skaria


"art" wrote:

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

If Selection is one cell
 

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
---------------
Jacob Skaria


"art" wrote:

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