<div>
<div class="content wysiwyg-content">
I am trying to set the value in the cell to the right of the last cell in a range but it isn't working. Can someone see what I'm doing wrong?<br />
<br />
Set oWorkbook = Workbooks.Open(TextFile)<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; Set oRange = ActiveWorkbook.Worksheets(<wbr />1).UsedRan<wbr />ge<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; For i = 1 To oRange.Rows.Count<br />
&nbsp; &nbsp; &nbsp; &nbsp; Set oCurRow = oRange.Rows(i)<br />
&nbsp; &nbsp; &nbsp; &nbsp; For Each oCell In oCurRow.Cells<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If oCell.Value = sCusip Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oCurRow.Columns(i, oCurRow.Columns.Count).Off<wbr />set(0, 1).Value = &quot;Y&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; &nbsp; &nbsp; Next<br />
&nbsp; &nbsp; Next
</div>
</div>


I am trying to set the value in the cell to the right of the last cell in a range but it isn't working. Can someone see what I'm doing wrong?

Set oWorkbook = Workbooks.Open(TextFile)
        
    Set oRange = ActiveWorkbook.Worksheets(1).UsedRange
        
    For i = 1 To oRange.Rows.Count
        Set oCurRow = oRange.Rows(i)
        For Each oCell In oCurRow.Cells
            If oCell.Value = sCusip Then
                oCurRow.Columns(i, oCurRow.Columns.Count).Offset(0, 1).Value = "Y"
            End If
        Next
    Next

set value of cell to the right of the last cell in a range

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