Hi All

The following code works well in XL 2K but not 2003. I have a
combobox with 7 categories. Test 1 –5, “All” and “Show 123”. Does
anyone have any idea how I might produce the same code in XL 2003.

Thanks in advance.
Chad

Private Sub ComboBox1_Change()
Dim lw As Long

Application.ScreenUpdating = False
Range("A7:A100").EntireRow.Hidden = False
lw = Range("A" & Rows.Count).End(xlUp).Row

' If Range(
For i = lw To 2 Step -1
If Range("A" & i).Value = ComboBox1.Value Then
Range("A" & i).EntireRow.Hidden = True
ElseIf ComboBox1.Value = "All" Then
Range("A7:A100").EntireRow.Hidden = False

ElseIf ComboBox1.Value = "Show 123" Then
If Range("A" & i).Value = "Test4" Or _
Range("A" & i).Value = "Test5" Then
Range("A" & i).EntireRow.Hidden = True
End If
End If

Next i
Calculate
Application.ScreenUpdating = True

End Sub

I don't see any reason why it would not work in xl2003. What indications are
you getting? Error message?

"Chad" wrote:

> Hi All
>
> The following code works well in XL 2K but not 2003. I have a
> combobox with 7 categories. Test 1 –5, “All� and “Show 123�. Does
> anyone have any idea how I might produce the same code in XL 2003.
>
> Thanks in advance.
> Chad
>
> Private Sub ComboBox1_Change()
> Dim lw As Long
>
> Application.ScreenUpdating = False
> Range("A7:A100").EntireRow.Hidden = False
> lw = Range("A" & Rows.Count).End(xlUp).Row
>
> ' If Range(
> For i = lw To 2 Step -1
> If Range("A" & i).Value = ComboBox1.Value Then
> Range("A" & i).EntireRow.Hidden = True
> ElseIf ComboBox1.Value = "All" Then
> Range("A7:A100").EntireRow.Hidden = False
>
> ElseIf ComboBox1.Value = "Show 123" Then
> If Range("A" & i).Value = "Test4" Or _
> Range("A" & i).Value = "Test5" Then
> Range("A" & i).EntireRow.Hidden = True
> End If
> End If
>
> Next i
> Calculate
> Application.ScreenUpdating = True
>
> End Sub
>

Hi Thanks for the response. This line

Range("A7:A100").EntireRow.Hidden = False

If I click on the yellow error line for a definition I get the
perfectly helpful message "Identifier under curser not recognised".
It has confused me no end as my code works wonderfully in 2k, but I
put it on the users machine and it fails in 03.

Chad