In my macro I have a range set to a single cell. The cell the range refers
to changes throughout my program. I want to bold the entire row (or at least
the first X columns in that row) that the range is on.

Thanks,
Scott Hanebutt

dim myCell as range

set mycell = worksheets("sheet99").range("x99") 'or something

mycell.entirerow.font.bold = true

or
mycell.entirerow.resize(1, 10).font.bold = true

Change 10 to whatever X meant.

scott_hanebutt wrote:

In my macro I have a range set to a single cell. The cell the range refers
to changes throughout my program. I want to bold the entire row (or at least
the first X columns in that row) that the range is on.

Thanks,
Scott Hanebutt

--

Dave Peterson

Hi Scott,
try:

SingleCell.EntireRow.Select

Frederick Chow
"scott_hanebutt" wrote in message
...
In my macro I have a range set to a single cell. The cell the range
refers
to changes throughout my program. I want to bold the entire row (or at
least
the first X columns in that row) that the range is on.

Thanks,
Scott Hanebutt

This is just an example. Select a single cell and run this macro:

Sub Macro3()
Dim r As Range
Dim s As String
Set r = Selection
s = r.Row
Rows(s).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Of course, you would set r to whatever your range is, not Selection.
--
Gary's Student


"scott_hanebutt" wrote:

In my macro I have a range set to a single cell. The cell the range refers
to changes throughout my program. I want to bold the entire row (or at least
the first X columns in that row) that the range is on.

Thanks,
Scott Hanebutt

Thanks to everyone who replied. I decided to use Dave's suggestion and it
worked perfectly.

Thanks,
Scott Hanebutt

"scott_hanebutt" wrote:

In my macro I have a range set to a single cell. The cell the range refers
to changes throughout my program. I want to bold the entire row (or at least
the first X columns in that row) that the range is on.

Thanks,
Scott Hanebutt