Private Sub CommandButton1_Click() Dim Cntr1, RowNo, Seat As Integer Dim StrHold, LRStr As String Cntr1 = 1 Do While Cntr1 < 885 '884 StrHold = Cells(Cntr1, 1).Value If Left(StrHold, 1) = "F" Then '0-63 If Mid(StrHold, 2, 1) = "F" Then '0-31 If Mid(StrHold, 3, 1) = "F" Then '0-15 If Mid(StrHold, 4, 1) = "F" Then '0-7 If Mid(StrHold, 5, 1) = "F" Then '0-3 If Mid(StrHold, 6, 1) = "F" Then '0-1 If Mid(StrHold, 7, 1) = "F" Then RowNo = 0 Else RowNo = 1 End If Else '2-3 If Mid(StrHold, 7, 1) = "F" Then RowNo = 2 Else RowNo = 3 End If End If Else '4-7 If Mid(StrHold, 6, 1) = "F" Then '4-5 If Mid(StrHold, 7, 1) = "F" Then RowNo = 4 Else RowNo = 5 End If Else '6-7 If Mid(StrHold, 7, 1) = "F" Then RowNo = 6 Else RowNo = 7 End If End If End If Else '8-15 If Mid(StrHold, 5, 1) = "F" Then '8-11 If Mid(StrHold, 6, 1) = "F" Then '8-9 If Mid(StrHold, 7, 1) = "F" Then RowNo = 8 Else RowNo = 9 End If Else '10-11 If Mid(StrHold, 7, 1) = "F" Then RowNo = 10 Else RowNo = 11 End If End If Else '12-15 If Mid(StrHold, 6, 1) = "F" Then '12-13 If Mid(StrHold, 7, 1) = "F" Then RowNo = 12 Else RowNo = 13 End If Else '14-15 If Mid(StrHold, 7, 1) = "F" Then RowNo = 14 Else RowNo = 15 End If End If End If End If Else '16-31 If Mid(StrHold, 4, 1) = "F" Then '16-23 If Mid(StrHold, 5, 1) = "F" Then '16-19 If Mid(StrHold, 6, 1) = "F" Then '16-17 If Mid(StrHold, 7, 1) = "F" Then RowNo = 16 Else RowNo = 17 End If Else '18-19 If Mid(StrHold, 7, 1) = "F" Then RowNo = 18 Else RowNo = 19 End If End If Else '20-23 If Mid(StrHold, 6, 1) = "F" Then '20-21 If Mid(StrHold, 7, 1) = "F" Then RowNo = 20 Else RowNo = 21 End If Else '22-23 If Mid(StrHold, 7, 1) = "F" Then RowNo = 22 Else RowNo = 23 End If End If End If Else '24-31 If Mid(StrHold, 5, 1) = "F" Then '24-27 If Mid(StrHold, 6, 1) = "F" Then '24-25 If Mid(StrHold, 7, 1) = "F" Then RowNo = 24 Else RowNo = 25 End If Else '26-27 If Mid(StrHold, 7, 1) = "F" Then RowNo = 26 Else RowNo = 27 End If End If Else '28-31 If Mid(StrHold, 6, 1) = "F" Then '28-29 If Mid(StrHold, 7, 1) = "F" Then RowNo = 28 Else RowNo = 29 End If Else '30-31 If Mid(StrHold, 7, 1) = "F" Then RowNo = 30 Else RowNo = 31 End If End If End If End If End If Else '32-63 If Mid(StrHold, 3, 1) = "F" Then '32-47 If Mid(StrHold, 4, 1) = "F" Then '32-39 If Mid(StrHold, 5, 1) = "F" Then '32-35 If Mid(StrHold, 6, 1) = "F" Then '32-33 If Mid(StrHold, 7, 1) = "F" Then RowNo = 32 Else RowNo = 33 End If Else '34-35 If Mid(StrHold, 7, 1) = "F" Then RowNo = 34 Else RowNo = 35 End If End If Else '36-39 If Mid(StrHold, 6, 1) = "F" Then '36-37 If Mid(StrHold, 7, 1) = "F" Then RowNo = 36 Else RowNo = 37 End If Else '38-39 If Mid(StrHold, 7, 1) = "F" Then RowNo = 38 Else RowNo = 39 End If End If End If Else '40-47 If Mid(StrHold, 5, 1) = "F" Then '40-43 If Mid(StrHold, 6, 1) = "F" Then '40-41 If Mid(StrHold, 7, 1) = "F" Then RowNo = 40 Else RowNo = 41 End If Else '42-43 If Mid(StrHold, 7, 1) = "F" Then RowNo = 42 Else RowNo = 43 End If End If Else '44-47 If Mid(StrHold, 6, 1) = "F" Then '44-45 If Mid(StrHold, 7, 1) = "F" Then RowNo = 44 Else RowNo = 45 End If Else '46-47 If Mid(StrHold, 7, 1) = "F" Then RowNo = 46 Else RowNo = 47 End If End If End If End If Else '48-63 If Mid(StrHold, 4, 1) = "F" Then '48-55 If Mid(StrHold, 5, 1) = "F" Then '48-51 If Mid(StrHold, 6, 1) = "F" Then '48-49 If Mid(StrHold, 7, 1) = "F" Then RowNo = 48 Else RowNo = 49 End If Else '50-51 If Mid(StrHold, 7, 1) = "F" Then RowNo = 50 Else RowNo = 51 End If End If Else '52-55 If Mid(StrHold, 6, 1) = "F" Then '52-53 If Mid(StrHold, 7, 1) = "F" Then RowNo = 52 Else RowNo = 53 End If Else '54-55 If Mid(SreHold, 7, 1) = "F" Then RowNo = 54 Else RowNo = 55 End If End If End If Else '56-63 If Mid(StrHold, 5, 1) = "F" Then '56-59 If Mid(StrHold, 6, 1) = "F" Then '56-57 If Mid(StrHold, 7, 1) = "F" Then RowNo = 56 Else RowNo = 57 End If Else '58-59 If Mid(StrHold, 7, 1) = "F" Then RowNo = 58 Else RowNo = 59 End If End If Else '60-63 If Mid(StrHold, 6, 1) = "F" Then '60-61 If Mid(StrHold, 7, 1) = "F" Then RowNo = 60 Else RowNo = 61 End If Else '62-63 If Mid(StrHold, 7, 1) = "F" Then RowNo = 62 Else RowNo = 63 End If End If End If End If End If End If '----------------------------------------------------------------------------------- Else '64-127 If Mid(StrHold, 2, 1) = "F" Then '64-95 If Mid(StrHold, 3, 1) = "F" Then '64-79 If Mid(StrHold, 4, 1) = "F" Then '64-71 If Mid(StrHold, 5, 1) = "F" Then '64-67 If Mid(StrHold, 6, 1) = "F" Then '64-65 If Mid(StrHold, 7, 1) = "F" Then RowNo = 64 Else RowNo = 65 End If Else '66-7 If Mid(StrHold, 7, 1) = "F" Then RowNo = 66 Else RowNo = 67 End If End If Else '68-71 If Mid(StrHold, 6, 1) = "F" Then '68-69 If Mid(StrHold, 7, 1) = "F" Then RowNo = 68 Else RowNo = 69 End If Else '70-71 If Mid(StrHold, 7, 1) = "F" Then RowNo = 70 Else RowNo = 71 End If End If End If Else '72-79 If Mid(StrHold, 5, 1) = "F" Then '72-75 If Mid(StrHold, 6, 1) = "F" Then '72-73 If Mid(StrHold, 7, 1) = "F" Then RowNo = 72 Else RowNo = 73 End If Else '74-75 If Mid(StrHold, 7, 1) = "F" Then RowNo = 74 Else RowNo = 75 End If End If Else '76-79 If Mid(StrHold, 6, 1) = "F" Then '76-78 If Mid(StrHold, 7, 1) = "F" Then RowNo = 76 Else RowNo = 77 End If Else '78-79 If Mid(StrHold, 7, 1) = "F" Then RowNo = 78 Else RowNo = 79 End If End If End If End If Else '80-95 If Mid(StrHold, 4, 1) = "F" Then '80-87 If Mid(StrHold, 5, 1) = "F" Then '80-83 If Mid(StrHold, 6, 1) = "F" Then '80-81 If Mid(StrHold, 7, 1) = "F" Then RowNo = 80 Else RowNo = 81 End If Else '82-83 If Mid(StrHold, 7, 1) = "F" Then RowNo = 82 Else RowNo = 83 End If End If Else '84-87 If Mid(StrHold, 6, 1) = "F" Then '84-85 If Mid(StrHold, 7, 1) = "F" Then RowNo = 84 Else RowNo = 85 End If Else '86-87 If Mid(StrHold, 7, 1) = "F" Then RowNo = 86 Else RowNo = 87 End If End If End If Else '88-95 If Mid(StrHold, 5, 1) = "F" Then '88-91 If Mid(StrHold, 6, 1) = "F" Then '88-89 If Mid(StrHold, 7, 1) = "F" Then RowNo = 88 Else RowNo = 89 End If Else '90-91 If Mid(StrHold, 7, 1) = "F" Then RowNo = 90 Else RowNo = 91 End If End If Else '92-95 If Mid(StrHold, 6, 1) = "F" Then '92-93 If Mid(StrHold, 7, 1) = "F" Then RowNo = 92 Else RowNo = 93 End If Else '94-95 If Mid(StrHold, 7, 1) = "F" Then RowNo = 94 Else RowNo = 95 End If End If End If End If End If Else '96-127 If Mid(StrHold, 3, 1) = "F" Then '96-111 If Mid(StrHold, 4, 1) = "F" Then '96-103 If Mid(StrHold, 5, 1) = "F" Then '96-99 If Mid(StrHold, 6, 1) = "F" Then '96-97 If Mid(StrHold, 7, 1) = "F" Then RowNo = 96 Else RowNo = 97 End If Else '98-99 If Mid(StrHold, 7, 1) = "F" Then RowNo = 98 Else RowNo = 99 End If End If Else '100-103 If Mid(StrHold, 6, 1) = "F" Then '100-101 If Mid(StrHold, 7, 1) = "F" Then RowNo = 100 Else RowNo = 101 End If Else '102-103 If Mid(StrHold, 7, 1) = "F" Then RowNo = 102 Else RowNo = 103 End If End If End If Else '104-111 If Mid(StrHold, 5, 1) = "F" Then '104-107 If Mid(StrHold, 6, 1) = "F" Then '104-105 If Mid(StrHold, 7, 1) = "F" Then RowNo = 104 Else RowNo = 105 End If Else '106-107 If Mid(StrHold, 7, 1) = "F" Then RowNo = 106 Else RowNo = 107 End If End If Else '108-111 If Mid(StrHold, 6, 1) = "F" Then '108-109 If Mid(StrHold, 7, 1) = "F" Then RowNo = 108 Else RowNo = 109 End If Else '110-111 If Mid(StrHold, 7, 1) = "F" Then RowNo = 110 Else RowNo = 111 End If End If End If End If Else '112-127 If Mid(StrHold, 4, 1) = "F" Then '112-119 If Mid(StrHold, 5, 1) = "F" Then '112-115 If Mid(StrHold, 6, 1) = "F" Then '112-113 If Mid(StrHold, 7, 1) = "F" Then RowNo = 112 Else RowNo = 113 End If Else '114-115 If Mid(StrHold, 7, 1) = "F" Then RowNo = 114 Else RowNo = 115 End If End If Else '116-119 If Mid(StrHold, 6, 1) = "F" Then '116-117 If Mid(StrHold, 7, 1) = "F" Then RowNo = 116 Else RowNo = 117 End If Else '118-119 If Mid(StrHold, 7, 1) = "F" Then RowNo = 118 Else RowNo = 119 End If End If End If Else '120-127 If Mid(StrHold, 5, 1) = "F" Then '120-123 If Mid(StrHold, 6, 1) = "F" Then '120-121 If Mid(StrHold, 7, 1) = "F" Then RowNo = 120 Else RowNo = 121 End If Else '122-123 If Mid(StrHold, 7, 1) = "F" Then RowNo = 122 Else RowNo = 123 End If End If Else '124-127 If Mid(StrHold, 6, 1) = "F" Then '124-125 If Mid(StrHold, 7, 1) = "F" Then RowNo = 124 Else RowNo = 125 End If Else '126-127 If Mid(StrHold, 7, 1) = "F" Then RowNo = 126 Else RowNo = 127 End If End If End If End If End If End If End If LRStr = Right(StrHold, 3) LRVal = ChkLR(LRStr) 'MsgBox (CStr(RowNo)) 'MsgBox (CStr(LRVal)) 'Do Calc Seat = RowNo * 8 + LRVal Cells(Cntr1, 2).Value = CStr(Seat) Cntr1 = Cntr1 + 1 Loop End Sub Function ChkLR(StrVal As String) As Integer If Mid(StrVal, 1, 1) = "L" Then '0-3 If Mid(StrVal, 2, 1) = "L" Then '0-1 If Mid(StrVal, 3, 1) = "L" Then ChkLR = 0 Else ChkLR = 1 End If Else '2-3 If Mid(StrVal, 3, 1) = "L" Then ChkLR = 2 Else ChkLR = 3 End If End If Else '4-7 If Mid(StrVal, 2, 1) = "L" Then '4-5 If Mid(StrVal, 3, 1) = "L" Then ChkLR = 4 Else ChkLR = 5 End If Else '6-7 If Mid(StrVal, 3, 1) = "L" Then ChkLR = 6 Else ChkLR = 7 End If End If End If End Function