Multiple Problems with a loop

[Radtastic10]

I am currently having a problem with this loop.

 last_col = 1
 Do Until IsEmpty(Cells(last_col, 1))
    tempstr = ActiveSheet.Range(last_col & First_row).Value
    If InStr(tempstr, "(Apple)") > 0 Then
       str = Split(last_col & First_row, "(")
       ActiveSheet.Range(last_col & First_row).Value = str & "Red Apple"
    End If
    last_col = last_col + 1
  Loop

It is getting hung up when I try to store the value of the current cell in a temporary string. The goal of the loop is to go through the row of column titles and check if the substring is contained in that cell then switch it to the new title. However, it does not store anything in the temporary string when stepping through the loop.

[NoSparks]

Try using Cells, as you do in the IsEmpty line, rather than Range

[Radtastic10]

Originally Posted by NoSparks

Try using Cells, as you do in the IsEmpty line, rather than Range

I Just tried this and no luck. I appreciate the idea though; that had never even crossed my mind.

The incrimination portion of the loop works great. The only real problem as of now is getting the title of each column to save to the temporary string.

[Radtastic10]

Figured out the problem. On the

tempstr = ActiveSheet.Cells(last_col, First_row).Value

The last_col and First_row needed to be flipped and have First_row, last col. I it was looking in row 1 column whatever instead of column 1 row whatever.