D
DataFreakFromUtah
No question here, just some procedure examples for the archive.
Search criteria: select only cells in specified range select only
cells
with comments select cells with comments in specific range
select all comments in specific range select all comments select all
cell comments select comments in subrange comments subset select cells
containing
comments select all cells that contain comments
SELECT CELLS WITH COMMENTS ONLY IN SPECIFIED, TARGETED RANGE
Sub CommentsSelectInSpecificRangeExample1()
'Selects cells with comments in a range already
'named on the activeworksheet. Edit name of target
'range below
Dim TargetRange As Range
On Error Resume Next
Application.Goto Reference:="DATA" 'named range here
Set TargetRange = Selection
TargetRange.SpecialCells(xlCellTypeComments).Select
End Sub
Sub CommentsSelectInSpecificRangeExample2()
'Selects cells with comments in a range prompted for
'and selected by user
Dim TargetRange As Range
On Error Resume Next
Set TargetRange = Application.InputBox( _
prompt:="Select Range of
Cells to Select Any Comments Present in the Range", Type:=8)
TargetRange.SpecialCells(xlCellTypeComments).Select
End Sub
Search criteria: select only cells in specified range select only
cells
with comments select cells with comments in specific range
select all comments in specific range select all comments select all
cell comments select comments in subrange comments subset select cells
containing
comments select all cells that contain comments
SELECT CELLS WITH COMMENTS ONLY IN SPECIFIED, TARGETED RANGE
Sub CommentsSelectInSpecificRangeExample1()
'Selects cells with comments in a range already
'named on the activeworksheet. Edit name of target
'range below
Dim TargetRange As Range
On Error Resume Next
Application.Goto Reference:="DATA" 'named range here
Set TargetRange = Selection
TargetRange.SpecialCells(xlCellTypeComments).Select
End Sub
Sub CommentsSelectInSpecificRangeExample2()
'Selects cells with comments in a range prompted for
'and selected by user
Dim TargetRange As Range
On Error Resume Next
Set TargetRange = Application.InputBox( _
prompt:="Select Range of
Cells to Select Any Comments Present in the Range", Type:=8)
TargetRange.SpecialCells(xlCellTypeComments).Select
End Sub