VB macro won't work

  • Thread starter Thread starter Tim
  • Start date Start date
T

Tim

Having a problem with macros associated with combo box
values.
Sub DropDown136_Change()
Application.ScreenUpdating = False

If Worksheets("Exercise Sheet").Range("A43").Value =
6 Then
Rows("44:54").Select
Selection.EntireRow.Hidden = False
End If

If Worksheets("Exercise Sheet").Range("A43").Value =
2 Then
Rows("44:54").Select
Selection.EntireRow.Hidden = False
Rows("52:54").Select
Selection.EntireRow.Hidden = True
End If

If Worksheets("Exercise Sheet").Range("A43").Value =
3 Then
Rows("44:54").Select
Selection.EntireRow.Hidden = False
Rows("50:54").Select
Selection.EntireRow.Hidden = True
End If

If Worksheets("Exercise Sheet").Range("A43").Value =
5 Then
Rows("44:54").Select
Selection.EntireRow.Hidden = False
Rows("50:54").Select
Selection.EntireRow.Hidden = True
End If

If Worksheets("Exercise Sheet").Range("A43").Value =
4 Then
Rows("44:54").Select
Selection.EntireRow.Hidden = False
Rows("49:54").Select
Selection.EntireRow.Hidden = True
End If

Application.ScreenUpdating = True
End Sub

This works exactly like it should for the first drop down
box...the other four...zip. Can someone tell me what I'm
missing?
 
Tim said:
Having a problem with macros associated with combo box
values.
Sub DropDown136_Change()
Application.ScreenUpdating = False
Click to expand...

This is a VB.NET (dotnet) group. Please turn to the right group. It's
probably microsoft.public.excel.programming
 
Back
Top