vba - Conditional formatting, select only visible cells -

i have written code select specific sheets , on button click email data of selected sheets. in 1 sheet there conditional formatting applied on dropdown list.

so requirement when dropdown option 1 chosen, below 2 cells not visible. secondly when dropdown option 2 selected cells visible.

with code gets selected.

i tried code :

overallrange = activesheet.range("c1:d50").specialcells(xlcelltypevisible).select  

can advice better ways this....

you're headed right way, see sniplet below:

sub ert()  dim rng range each rng in activesheet.range("c1:d50").specialcells(xlcelltypevisible)     rng.select     selection         .formatconditions.add type:=xlexpression, formula1:="=true" 'replace formula         .formatconditions(selection.formatconditions.count).setfirstpriority         .formatconditions(1).stopiftrue = false         .formatconditions(1).interior.color = 49407 'give touch of orange     end next  end sub 

p.s. noone tell him, gotta love 1st of april. come tomorrow.
edit, more heat: let me highlight .select method emulates selecting range selection. refers range selected. select in code wastes resource , can cause errors (e.g. cannot selected macro halts, selectionchange event triggers etc.) , looks lousy. above reasons (esp. lousiness) don't select, define range , run script given range. way can save seconds of runtime while looking cool. snipplet below cool variation of sub-sub.

sub ert()     activesheet.range("c1:d50").specialcells(xlcelltypevisible)         .formatconditions.add type:=xlexpression, formula1:="=true" 'replace formula         .formatconditions(.formatconditions.count).setfirstpriority         .formatconditions(1).stopiftrue = false         .formatconditions(1).interior.color = 49407 'give touch of orange     end end sub