VBA for SELECTING ONLY BOLD CELL
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. |
VBA for SELECTING ONLY BOLD CELL
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. |
VBA for SELECTING ONLY BOLD CELL
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. |
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. |
All times are GMT +1. The time now is 01:00 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com