VBA to Hide rows based on Combo Box Result

[Gem866]

I have a spreadsheet that contains data in the range A10:G25
I use a combo box to make a selection eg "internal" or External". The output from this selection is stored in cell K3. The output shows either 1 or 2

I want to hide rows based on what that output value is eg if output value is 1 then hide rows 19:25 and if the output value is 2 hide rows from 10:18

Ive tried the following VAB Macro, which is stored in Microsoft excel objects Sheet 1.

The Macro doesn't seem to work (Rows are not hiding) and so I need some help please

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("K3") = "1" Then
Rows("19:25").Hidden = True
ElseIf Range("K3").Value = "2" Then
Rows("10:18").Hidden = True

End If
End Sub

Thanks in Advance for your help

 

[Fluff]

The change event does not work if the cell is linked to a combobox.
What type of combo is it, as Form Control, or an ActiveX?

 

[Gem866]

Hmm Combo box accessed from the developer tab.

 

[Fluff]

If you right click the combo do you see an option for "Assign macro"?

 

[Gem866]

Yes but not sure what macro name is to assign

 

[Fluff]

OK assign this macro to the combo.

Sub Gem()
   Rows("19:25").Hidden = Range("K3").Value = 1
   Rows("10:18").Hidden = Range("K3").Value = 2
End Sub

The code needs to go in a normal module.

 

[Gem866]

That has worked. Thanks heaps

 

[Fluff]

You're welcome & thanks for the feedback.