VBA for SELECTING ONLY BOLD CELL
Xclent intro to UNION statement. However, how to select all kinds of
underline cells?, i.e. even single/double accounting or simple underlines?
Thanx again
"Mike H" wrote:
Hi
For Each c In ActiveSheet.UsedRange
can be replaced with
For Each c In Selection
Mike
"Mike H" wrote:
Hi,
Try this
Sub Select_Bold()
Dim BoldRange As Range
For Each c In ActiveSheet.UsedRange
If c.Font.Bold Then
If BoldRange Is Nothing Then
Set BoldRange = c
Else
Set BoldRange = Union(BoldRange, c)
End If
End If
Next
If Not BoldRange Is Nothing Then
BoldRange.Select
End If
End Sub
Mike
"FARAZ QURESHI" wrote:
Could one please devise a simple code which would be selecting cells with a
Bold format within a range.
In other words:
For each cell in selection.
Thanx.
|