The above works perfectly when searching notes on a worksheet. If searching a range & you want to know if there is no comment in a particular cell, try using NoteText instead. dim a as string a = Worksheets("Sheet1").Range("A1").NoteText