Hi,
I'm not sure what you're trying to achieve - so I don't quite understand
what you class as "not working"
However I did notice that you're variable declarations aren't specific (this
works in other languages - but not
VB)
your line should read:
"Dim MyRange as range, MyRange1 As Range"
HTH's
"Miree" wrote:
I am using the following code it works with numbers but not with text any
help would be much appreciated
Sub MixerTypeFilter()
If Not UserForm7.ComboBox4.Text = "" Then
Dim MyRange, MyRange1 As Range
Lastrow = Cells(Rows.Count, "DU").End(xlUp).Row
Set MyRange = Sheets("FormulationsDatabase (2)").Range("DU1:DU" & Lastrow)
For Each c In MyRange
If Not UCase(c.Value) = UserForm7.ComboBox4.Text Then
If MyRange1 Is Nothing Then
Set MyRange1 = c.EntireRow
Else
Set MyRange1 = Union(MyRange1, c.EntireRow)
End If
End If
Next
If Not MyRange1 Is Nothing Then
MyRange1.Delete
End If
End If
End Sub