Loop through all cells in a row, action if cell.comment

[PureBluff]

I'm trying to write a macro that will open up all files in a given directory. That bits not an issue.

However I want to loop through a specific row, outputting the following in to a Destination Sheet

A & row = Workbook.name
B & row = Cell.value
C & row = value of cell 10 rows up from commented cell
D & row = cell comment

Can anyone advise on the best way to approach this? I've got some code written on the laptop that I'll post when I get back, but I was using activesheet.range which I can't get to work with the cell comment.

Thanks