<div>
Up at the top of the code module: 
It's always good practice to have Option Explicit 
Do you have an Option Compare set, too? 
 
This will override it 
 
strTmp = &quot;&quot; 
strTmp = Filter(aLines, &quot;BUILDING:&quot;,true,vbTextCompare)(0) 
Range(&quot;X1&quot;) = Trim(Split(strTmp, &quot;:&quot;)(1)
</div>

<div>
I’m a novice so you lost me. &nbsp;Here is my code. 

<pre><code class="code-10 nolinks" id="code-20-40484081-1">Sub Description_Data()
On Error Resume Next
Range(&quot;W1:AK1&quot;).ClearContents
Range(&quot;W3:AK3&quot;).ClearContents
Range(&quot;W5:AK5&quot;).ClearContents
Range(&quot;W7:AK7&quot;).ClearContents
Range(&quot;W9:AK9&quot;).ClearContents
Range(&quot;W11:AK11&quot;).ClearContents
Range(&quot;W13:AK13&quot;).ClearContents

aLines = Split(Range(&quot;B11&quot;), vbLf)

'Bldg

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BLDG:&quot;)(0)
Range(&quot;W1&quot;) = Trim(Split(strTmp, &quot;:&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BUILDING:&quot;)(0)
Range(&quot;X1&quot;) = Trim(Split(strTmp, &quot;:&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BLDG&quot;)(0)
Range(&quot;Y1&quot;) = Trim(Split(strTmp, &quot;G&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BUILDING&quot;)(0)
Range(&quot;Z1&quot;) = Trim(Split(strTmp, &quot;G&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BLD&quot;)(0)
Range(&quot;AA1&quot;) = Trim(Split(strTmp, &quot;D&quot;)(1))


End Sub
</code></pre>
</div>

<div>
At the very top of the code put 
Option Explicit 
 
This requires you to define all your variables, and keeps the source of many subtle errors at bay 
On Error Resume Next 
You should use this ONLY as a very last ditch resort and certainly not while you actively developing. 
This tells the code to keep going along merrily until it can't, ignoring all problems. 
This can be VERY unhappy when you want a series of dependent things to occur. 
 
You'll likely need 
DIm aLines() as string 
dim strTmp &nbsp;as string
</div>

<div>
That did the trick. &nbsp;Thank you very much for your help.
</div>

<div>
This would be better, as it is commented 

<pre><code class="code-10 nolinks" id="code-20-40484115-1">Option Explicit
Option Compare Text
Sub Description_Data()
Dim aLines() As String
Dim strTmp As String
'On Error Resume Next

'clear cells as required
Range(&quot;W1:AK1&quot;).ClearContents
Range(&quot;W3:AK3&quot;).ClearContents
Range(&quot;W5:AK5&quot;).ClearContents
Range(&quot;W7:AK7&quot;).ClearContents
Range(&quot;W9:AK9&quot;).ClearContents
Range(&quot;W11:AK11&quot;).ClearContents
Range(&quot;W13:AK13&quot;).ClearContents

'split B11 based on the linefeed character into an array
'usually though its vbCrLF
aLines = Split(Range(&quot;B11&quot;), vbLf)

'Bldg

strTmp = &quot;&quot;
'look through the spilt for &quot;BLDG:&quot;
'Put the first instance in strTemp
strTmp = Filter(aLines, &quot;BLDG:&quot;, True, vbTextCompare)(0)
'split the result on the colon, hammer the seond bit into the cell
Range(&quot;W1&quot;) = Trim(Split(strTmp, &quot;:&quot;)(1))

'rinse and repeat
strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BUILDING:&quot;)(0)
Range(&quot;X1&quot;) = Trim(Split(strTmp, &quot;:&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BLDG&quot;)(0)
Range(&quot;Y1&quot;) = Trim(Split(strTmp, &quot;G&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BUILDING&quot;)(0)
Range(&quot;Z1&quot;) = Trim(Split(strTmp, &quot;G&quot;)(1))

strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BLD&quot;)(0)
Range(&quot;AA1&quot;) = Trim(Split(strTmp, &quot;D&quot;)(1))


End Sub
</code></pre>
</div>

<div>
And I can't test this, but if it is bug-free, this would be best and most maintainable 

<pre><code class="code-10 nolinks" id="code-20-40484116-1">Option Explicit
Option Compare Text
Sub Description_Data()

'clear cells as required
Range(&quot;W1:AK1&quot;).ClearContents
Range(&quot;W3:AK3&quot;).ClearContents
Range(&quot;W5:AK5&quot;).ClearContents
Range(&quot;W7:AK7&quot;).ClearContents
Range(&quot;W9:AK9&quot;).ClearContents
Range(&quot;W11:AK11&quot;).ClearContents
Range(&quot;W13:AK13&quot;).ClearContents

Call Pound(Range(&quot;B11&quot;), Range(&quot;W1&quot;), &quot;BLDG:&quot;, &quot;:&quot;)
Call Pound(Range(&quot;B11&quot;), Range(&quot;X1&quot;), &quot;BUILDING:&quot;, &quot;:&quot;)
Call Pound(Range(&quot;B11&quot;), Range(&quot;Y1&quot;), &quot;BLDG&quot;, &quot;G&quot;)
Call Pound(Range(&quot;B11&quot;), Range(&quot;Z1&quot;), &quot;BUILDING&quot;, &quot;G&quot;)
Call Pound(Range(&quot;B11&quot;), Range(&quot;AA1&quot;), &quot;BLD&quot;, &quot;D&quot;)


End Sub

Sub Pound(RInput As Range, ROutput As Range, TheString As String, SplitChar As String)
Dim aLines() As String
Dim strTmp As String
'split RInput based on the linefeed character into an array
'usually though its vbCrLF
aLines = Split(RInput, vbLf)
'look through the spilt for TheString
'Put the first instance in strTemp
strTmp = Filter(aLines, TheString, True, vbTextCompare)(0)
'split the result on the final character, hammer the second bit into the cell
ROutput = Trim(Split(strTmp, SplitChar)(1))
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
The below code searches for the string “BUILDING:&quot;, but it will only find it if it’s all in caps. How do I make it not be case sensitive? 
 

<pre><code class="code-1 nolinks" id="code-10-28575417-1">strTmp = &quot;&quot;
strTmp = Filter(aLines, &quot;BUILDING:&quot;)(0)
Range(&quot;X1&quot;) = Trim(Split(strTmp, &quot;:&quot;)(1)
</code></pre>
</div>
</div>

The below code searches for the string “BUILDING:", but it will only find it if it’s all in caps. How do I make it not be case sensitive? 

(CODE)

How to modify my code to not be case sensitive?

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.