help with loop and array

[shabbyporpoise]

hello Forum

I'm trying to create a vba program for work. I need to be able to read every element of 6 columns into an array and then be able to see if particular elements in each of these arrays match other lines. and so on for each row

Option Explicit

Sub mainFireWall()
    Dim num As Integer, names As String, i As Integer
    Dim colCount As Variant, rule(), allRules()
    Dim col As Integer
    Dim row As Integer
    Dim rowCount As Integer
    
    row = 1
    i = 1
    num = InputBox("how many rules are in this document?")
    For rowCount = 1 To num
        
        Do Until IsEmpty(Cells(row, i))
             ReDim Preserve rule(1 To i)
            rule(i) = Cells(1, i).Value
             i = i + 1
             row = row + 1      
        
            
         Loop
        
         MsgBox rule(3)
         
    Next rowCount
    

End Sub

thanks for any help you can provide forum

shabbyporpoise