title: Any suggestions on speeding this code up?
body: <p>Ok, I have the code below, which takes 18 different words, all in Column A rows 1 to 18, and tries them in all different combos to find a seven word palindrome. I am pretty sure the code will get it done, but it just searches for a LONG time. I know there's a way to check the first and last letters of the combos, to make sure they're the same, before the code runs them through the REVERSE function, I just can't figure out how to do it. I am very new to this.In other words, each time it puts together 7 of the words, if it didn't have to go through the REVERSE function, a ton of time would be saved, and verification that the first and last letters match would do that. Thanks in advance for any help</p>
  
  <pre><code> Sub SevenDrome()
  
  Dim count As Integer
  
  count = 0
  
  Dim wordtest As String
  Dim wordpal As String
  
  For j = 1 To 18
     For k = 1 To 18
        For l = 1 To 18
           For m = 1 To 18
              For n = 1 To 18
                 For o = 1 To 18
                    For p = 1 To 18
  
  wordtest = Cells(j, 1) &amp; Cells(k, 1) &amp; Cells(l, 1) &amp; Cells(m, 1) &amp; Cells(n, 1) &amp; Cells(o, 1) &amp; Cells(p, 1)
  wordpal = REVERSE(wordtest)
  
  If wordtest = wordpal Then
  count = count + 1
  
  Cells(count, 7) = wordtest
  
  End If
                    Next p
                 Next o
              Next n
           Next m
        Next l
     Next k
  Next j
  
  End Sub
  </code></pre>