Hi Anthony

Example for row 1 on the activesheet

On Error Resume Next
MsgBox Rows(1).SpecialCells(xlCellTypeComments).Count
On Error GoTo 0



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mr Anthony Griffiths" wrote in message ...
Is there a way to count how many cells in a row have comments in them ?

Anthony G