Hi
I am using Macro to select all bold rows but once i run macro it selects every row, am i doing something wrong.
If i remove formatting manually for entire page and make 1 or 2 rows bold it works.
I do run 3 or 4 macros in total , and SelectBoldDesc Macro runs correctly until after I run a Macro to Insert Cell Data from rows Above and make them Bold.
Please Help!!!
This is the code im using to select only bold rows which only selects all rows!!!
Code
Sub SelectBoldDesc()
Dim rngA As Range
Dim cell As Range
Dim SpecialSelect As Range
Set rngA = Range("A1", "Z700")
For Each cell In rngA
If cell.Font.Bold = True Then
If SpecialSelect Is Nothing Then
Set SpecialSelect = cell.EntireRow
Else
Set SpecialSelect = Union(SpecialSelect, cell.EntireRow)
End If
End If
Next cell
If Not SpecialSelect Is Nothing Then
SpecialSelect.Select
End If
End Sub
Display More
and this is the code i use to insert from lines above which causes the previous to selected everything
Code
Sub FillCellFromAbove()
For Each cell In Selection
If cell.Value = "" Then
cell.Font.Bold = True
cell.Value = cell.Offset(-1, 0).Value
End If
Next cell
End Sub
I would be very grateful for any assistance