I've cracked it - simple mistake!!

Used:

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

Private Sub cmbprintercat_Change()
dim bolHardwarecatVisible as boolean
bolHardwarecatVisible = ucase(cmbHardwarecat.Value) =
ucase("Printer")
cmbprintercat.Visible = bolHardwarecatVisible
lblprintercat.Visible = bolHardwarecatVisible
End Sub

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


But applied it to the cmbHardwarecat - so:


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

Private Sub cmbHardwarecat_Change()
dim bolHardwarecatVisible as boolean
bolHardwarecatVisible = ucase(cmbHardwarecat.Value) =
ucase("Printer")
cmbprintercat.Visible = bolHardwarecatVisible
lblprintercat.Visible = bolHardwarecatVisible
End Sub

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


cheers guys!!


--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=541063