Sorry guys, here's some of the code....if you want more, I'll post it. Just trying to save space.
Option Explicit
Option Base 1
Dim x As Integer, y As Integer, z As Integer, xx As Integer, L As Integer, F As Integer, Ct As Integer
Dim Element As String
Dim ans As String
Dim LineItems() As...