Noob: Case select & Statement

Perfect! It worked. I cam up with one that was a lot more work, complicated and a pain in the rear. I'm going to stick with yours! Thank you very much!!!!!!!

If you would by chance take a look at my other thread to see if you can help point me in a direction. Thanks.
http://www.excelforum.com/excel-prog...roup-noob.html




Also, here is what I did on my own before you got yours to work, just so you can see how much you helped me out.

Sub sorttest()
    Dim varZip As Variant
    Dim arrStore() As String
    Dim StoreIndex As Long

    With Range("C2", Cells(Rows.Count, "C").End(xlUp))
        If .Row < 2 Then Exit Sub   'No data
        ReDim arrStore(1 To .Rows.Count)
        For Each varZip In .Value
            StoreIndex = StoreIndex + 1
            Select Case varZip
                Case Is <= 55
                    arrStore(StoreIndex) = "1"
                Case 55.1 To 63
                    arrStore(StoreIndex) = "2"
                Case 63.1 To 77
                    arrStore(StoreIndex) = "3"
                Case 77.1 To 111
                    arrStore(StoreIndex) = "4"
                Case 111.1 To 500
                    arrStore(StoreIndex) = "5"
                Case ""
                    arrStore(StoreIndex) = ""
                Case Else
                    arrStore(StoreIndex) = "none"
            End Select
        Next varZip
    End With
    
   

    If StoreIndex > 0 Then Range("F2").Resize(StoreIndex).Value = Application.Transpose(arrStore)
   End Sub
Sub sorttest2()
   Dim varZip As Variant
    Dim arrStore() As String
    Dim StoreIndex As Long

With Range("D2", Cells(Rows.Count, "D").End(xlUp))
        If .Row < 2 Then Exit Sub   'No data
        ReDim arrStore(1 To .Rows.Count)
        For Each varZip In .Value
            StoreIndex = StoreIndex + 1
            Select Case varZip
                Case Is <= 5
                    arrStore(StoreIndex) = "1"
                Case 6 To 7
                    arrStore(StoreIndex) = "2"
                Case 8 To 9
                    arrStore(StoreIndex) = "3"
                    Case 10 To 11
                    arrStore(StoreIndex) = "4"
                    Case 12 To 18
                    arrStore(StoreIndex) = "5"
                Case ""
                    arrStore(StoreIndex) = ""
                Case Else
                    arrStore(StoreIndex) = "none"
            End Select
        Next varZip
    End With

    If StoreIndex > 0 Then Range("G2").Resize(StoreIndex).Value = Application.Transpose(arrStore)


End Sub

Sub sorttest3()
Dim varZip As Variant
    Dim arrStore() As String
    Dim StoreIndex As Long

With Range("H2", Cells(Rows.Count, "H").End(xlUp))
        If .Row < 2 Then Exit Sub   'No data
        ReDim arrStore(1 To .Rows.Count)
        For Each varZip In .Value
            StoreIndex = StoreIndex + 1
            Select Case varZip
                Case Is = 11
                    arrStore(StoreIndex) = "A"
                Case Is = 12, 22, 21, 31, 41, 51
                    arrStore(StoreIndex) = "B"
                Case Is = 13, 23, 33, 32, 42, 52
                    arrStore(StoreIndex) = "C"
                    Case Is = 43, 53, 44, 53
                    arrStore(StoreIndex) = "D"
                    Case Is = 14, 24, 34
                    arrStore(StoreIndex) = "E"
                    Case Is = 54, 55
                    arrStore(StoreIndex) = "F"
                    Case Is = 15, 25, 35, 45
                    arrStore(StoreIndex) = "G"
                Case ""
                    arrStore(StoreIndex) = ""
                Case Else
                    arrStore(StoreIndex) = "none"
            End Select
        Next varZip
    End With

    If StoreIndex > 0 Then Range("I2").Resize(StoreIndex).Value = Application.Transpose(arrStore)


End Sub


Sub Clear()
    Range("F2:F500,G2:G500,I2:I500").Select
    Range("F5").Activate
    Selection.ClearContents
    Range("A4").Select
End Sub