For each cell List items question

[sharky12345]

I want to try and produce a single list of items in a range where the cell in column A is not empty.

So far I have the following;

LastRow = Sheet2.Cells(Rows.Count, "A").End(xlUp).RowFor Each Cell In Sheet2.Range("A12:A" & LastRow)
If Cell.Value <> "" Then
FaultyList = "Site: " & Cell.Value & vbNewLine & _
"Link: " & Cell.Offset(0, 1).Value & vbNewLine & vbNewLine
End If
Next

I want 'FaultyList' to be a list of all of those cells where column A is blank - I can get the first one fine, but how do I add the ones after the first found to the list?

 

[Fluff]

Try

FaultyList = "Site: " & Cell.Value & vbNewLine & _
"Link: " & Cell.Offset(0, 1).Value & vbNewLine & vbNewLine & FaultyList

 

[My Aswer Is This]

What is FaultyList ?
What is Link ?

 

[sharky12345]

Fluff - thanks....

My Answer Is This - many thanks for posting, but Fluff beat you to it and his works.

Thanks to both!

 

[Fluff]

Glad we could help & thanks for the feedback