This macro just worked, it hid most of my combo boxes and list boxes
However now Im getting an error when trying to select the hidden comb
boxes.... is it not possible to select ( .visible = false ) shapes. Fo
so to make them visable again?


Private Sub Number_CC_invloved()

' Hides/Unhides the other forms depending on how many numbers of c
invloved.
' Created by Christian Simonsen 21/03/2006
Dim mSheet
Dim mCombo
Dim mList

i = data.Range("K14").Value

'------------------ Hides/Unhides all forms --------------

' unhides all the forms
For n = 2 To 10
mSheet = "Sheet" & n
Range(mSheet).Select
Selection.EntireRow.Hidden = False
Next n


' hides all the forms which is not needed
For i = i + 1 To 10
mSheet = "Sheet" & i
Range(mSheet).Select
Selection.EntireRow.Hidden = True

Next i


' -----------Hides all combo boxes and List boxes ---------

' unhides all the combo boxes
For n = 2 To 10
mCombo = "CC_" & n
combo.Shapes(mCombo).Select
With Selection
.Visible = True
End With
Next n

' unhides all the List boxes
For n = 2 To 10
mList = "cboSecondary_" & n
combo.Shapes(mList).Select
With Selection
.Visible = True
End With
Next n

' -----------Un-Hides all combo boxes and List boxes ---------

' hides all the forms which is not needed
For i = i + 1 To 10
mList = "CC_" & i
combo.Shapes(mList).Select
With Selection
.Visible = False
End With
Next i

' hides all the forms which is not needed
For i = i + 1 To 10
mList = "cboSecondary_" & i
combo.Shapes(mList).Select
With Selection
.Visible = False
End With
Next i



End Su

--
Ctec

-----------------------------------------------------------------------
Ctech's Profile: http://www.excelforum.com/member.php...fo&userid=2774
View this thread: http://www.excelforum.com/showthread.php?threadid=52487