OK, so I need to know in several spots in my code that a number is both divisible by 6 and is less than 50*6... (300). I have been doing it by using the following code...

                            pquant = cells(arrow, acol)
                            Select Case pquant
                                Case 6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 66, 72, 78, 84, 90, _
                                96, 102, 108, 114, 120, 126, 132, 138, 144, 150, 156, 162, 168, _
                                174, 180, 186, 192, 198, 204, 210, 216, 222, 228, 234, 240, 246, _
                                252, 258, 264, 270, 276, 282, 288, 294, 300
                                    'do nothing
                                Case Else
                                    'code to correct here....
                            End Select
I know the better way to do it is to call a function that returns a t/f Boolean... but I've never used functions before and having trouble getting it to work.

I'm self taught in VBA with over 10 years of experience, and I need to learn how to start making code more efficient..... thanks!