Sub Macro2()<br/> Set pz = Cells.SpecialCells(xlCellTypeComments)<br/> Dim rng As Range<br/> Dim s As String<br/> s = ""<br/> For Each rng In pz<br/> If InStr(rng.Comment.Text, "EP") Then s = s & "," & rng.Address<br/> Next<br/> s = Mid(s, 2)<br/> Range(s).Select<br/>End Sub<br/>