VBA for SELECTING ONLY BOLD CELL

  • Thread starter Thread starter FARAZ QURESHI
  • Start date Start date
F

FARAZ QURESHI

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
 
Hi

For Each c In ActiveSheet.UsedRange

can be replaced with

For Each c In Selection

Mike
 
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
 
Selecting Bold Cell in Word

Hello,

Could anyone of you help with doing the same in Word?

Thanks,
abardos
 
Back
Top