<div>
I do not use VBA but I know you can use COLUMN() to retrieve the current column.
</div>


<div>
<div class="content wysiwyg-content">
I am a new to VBA (fun!) and am trying to write code that determines if the top cell (on row 5) of &nbsp;the active column &nbsp;contains a specific string. &nbsp;e.g. &quot;Sun&quot;. &nbsp;I understand how to use the intstr, but cannot figure out how to change the range/cell reference in the bracket to reflect a different column. &nbsp;Thanks for any advice at all!!!<br />
<br />
&nbsp;If InStr(1, [b5], &quot;Sun&quot;, vbTextCompare) &gt;&nbsp;0 Then<br />
MsgBox &quot;It is Sunday.&quot;<br />
Else<br />
MsgBox &quot;It is not Sunday&quot;<br />
End If
</div>
</div>


I am a new to VBA (fun!) and am trying to write code that determines if the top cell (on row 5) of  the active column  contains a specific string.  e.g. "Sun".  I understand how to use the intstr, but cannot figure out how to change the range/cell reference in the bracket to reflect a different column.  Thanks for any advice at all!!!

 If InStr(1, [b5], "Sun", vbTextCompare) > 0 Then
MsgBox "It is Sunday."
Else
MsgBox "It is not Sunday"
End If

I do not use VBA but I know you can use COLUMN() to retrieve the current column.

How to Check String in top row of active column

I am a new to VBA (fun!) and am trying to write code that determines if the top cell (on row 5) of  the active column  contains a specific string.  e.g. &quot;Sun&quot;.  I understand how to use the intstr, but cannot figure out how to change the range/cell reference in the bracket to reflect a different column.  Thanks for any advice at all!!!

 If InStr(1, [b5], &quot;Sun&quot;, vbTextCompare) &gt; 0 Then
MsgBox &quot;It is Sunday.&quot;
Else
MsgBox &quot;It is not Sunday&quot;
End If

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