Help with Selection Count vba

[decadence]

Hi, I am trying to set if statements so that only more than 1 column can be selected before the code runs, However I am having trouble with if the cells selected are more than 1 as it thinks the columns have been selected. Is there a way round this?

    If Selection.Cells.Count = 1 Then Exit Sub
    If Selection.Cells.Count > 1 Then Exit Sub '<--------
    If Selection.Columns.Count = 1 Then Exit Sub

 

[RoryA]

I don't understand the second line. Between the first and second lines you have covered every possibility (other than no cells being selected) so the odds of your code ever running are pretty small.

 

[decadence]

Hi RoryA, What I am trying to achieve is the end user can only select 2 or more columns for the code to continue, if they select Individual or multiple cells then exit the sub.

 

[Fluff]

Not sure if this is what you're after

    With Selection
      If .Columns.Count = 1 Then Exit Sub
      If Not .Cells.CountLarge / .Columns.Count = 1048576 Then Exit Sub
   End With

This will exit the sub if the user has not selected 2 or more complete columns. Assumes using xl 2007 or later

 

[decadence]

Hi Fluff, Yes this is Exactly what I am after, Thank you

 

[Fluff]

Glad to help & thanks for the feedback