Issue with VBA

[andrewb90]

Hello,

I have this code:

Code:

Sub comments1() With ActiveSheet With .Rows("180:186") .Hidden = Not .Hidden End With With .DropDowns("Tag1_1") .Visible = Not .Visible End With With .DropDowns("Tag2_1") .Visible = Not .Visible End With End WithEnd Sub</pre>
Now, when I run this code, sometimes (but oddly not every time) the dropdowns do not reappear where they were originally placed. Is there a solution to this?

Any help would be greatly appreciated.

Thanks,

Andrew

 

[andrewb90]

nobody?

 

[James Snyder]

andrew, try putting it in

 blocks. It is nearly impossible to read the way it is.

 

[andrewb90]

[COLOR=#333333]Sub comments1() 
With ActiveSheet With .Rows("180:186") .Hidden = Not .Hidden 
End With 
With .DropDowns("Tag1_1") .Visible = Not .Visible 
End With 
With .DropDowns("Tag2_1") .Visible = Not .Visible 
End With 
End Sub[/COLOR]

 

[James Snyder]

I admit to not knowing. However, for others, here is andrew's code:

Sub comments1() 
  With ActiveSheet 
    With .Rows("180:186") 
      .Hidden = Not .Hidden 
    End With 
    With .DropDowns("Tag1_1") 
      .Visible = Not .Visible 
    End With 
    With .DropDowns("Tag2_1") 
      .Visible = Not .Visible 
    End With 
  End With
End Sub

TO me, it looks like a missing End With (in red)