Range to stop at bold cell

[colmguckian]

I have a code which defines Range1 as Range("A" & I, "A" & I + 15).Name = "Range1
Instead Of adding the 15 rows to the range, I would like the range
to stop one row before the next bold cell.
What would i need to do to the below code to achieve this

Dim I As Integer, DFuzzyMatchByWord As Double, C As Range
For I = 1 To 500
DFuzzyMatchByWord = FuzzyMatchByWord((ComboBox2.Value), Workbooks("Book1").Worksheets("Sheet1").Range("A" & I).Value)
If DFuzzyMatchByWord > 80 Then
Workbooks("Book1").Worksheets("Sheet1").Range("A" & I, "A" & I + 15).Name = "Range1"
End If
Next I
<!-- / message -->

 

[Peter_SSs]

Duplicate to http://www.mrexcel.com/forum/showthread.php?t=535485

Please do not post the same question multiple times. Questions of a duplicate nature will be locked or deleted, per the Posting Rules (especially points 21-23).

You didn't provide any further information about what didn't work with my code or more information about your data, layout etc in that other thread so I wasn't able to suggest anything further.

Please post any bumps, clarifications, or follow-ups back to the linked thread.