Goldfish
Thanks for the follow up. Unfortunately, this code won't update the table. The problem is this line
"If Mid(RNG.Value, 2, 2) = CheckValue"
I created a variable - TestValue, and added the following to see what was happening with the "Mid(RNG.Value, 2, 2) " code
It now looks like this
If ColumnOffset > 0 Then
Set RNG = Sheets("Sheet1").Range("B4")
TestValue = Mid(RNG.Value, 2, 2)
Do Until RNG.Value = ""
'I'm not sure if you are using column A as a placeholder for a value
'Or if you actually want the text to appear there
'Add this line back in if it is needed
'RNG.Offset(0, -1).Value = Mid(RNG, 2, 2)
'But this check will still work even without this set
If TestValue = CheckValue Then
RNG.Offset(0, ColumnOffset) = SetValue
End If
'Move to the next one. It is only nessasary to move once per loop
'Where before you moved once to the left and then diagonal par each loop
Set RNG = RNG.Offset(1, 0)
Loop
TestValue changes on the first iteration to the value "10", then holds that value until the code ends. If you want to try it yourself, I have the following list R10, R12, R14, R16........R82, R84 in column B. I have the following in a row (X2:AE2)
1/8/07 10:55 AM, TKD6580, SHD0024, 46N16_LFULLBOT, EAST, 17, 43, 46
I have been going over it for a few hrs now and can't see why it won't work. (I am assuming it's something simple...)
Cheers
GB