With this line of code working just fine, how do make it include cell comments when it writes to the other sheets.

Sheets(UCase(varCheck(n, m)) & shName).Cells(Rows.Count, 1) _
.End(xlUp)(2).Resize(2, 8) = .Cells(n + 1, 1).Resize(2, 8).Value


I guess there needs to be a reference to:

Cells.SpecialCells(xlCellTypeComments)

but I have not been able to blend it in.


Regular Range.Copy Destination works but writing to a range does not.

Thanks,

Howard