Hi Guys,
My below code seems to keep looping/running, and I can't figure out why.
Range("H2").Select
Do Until ActiveCell.Offset(0, -7) = "" And _
ActiveCell.Offset(0, -6) = "" And _
ActiveCell.Offset(0, -5) = "" And _
ActiveCell.Offset(0, -4) = "" And _
ActiveCell.Offset(0, -3) = "" And _
ActiveCell.Offset(0, -2) = "" And _
ActiveCell.Offset(0, -1) = ""
If ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Value = ActiveCell.Value
ElseIf ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value <> "" Then
ActiveCell.Offset(0, -1).Value = ActiveCell(0, -1).Value & " & " & ActiveCell.Value
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
- James
Bookmarks