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.

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.

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.

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.