format first row within select
 

I try to record macro to format data. My purpose is to every time select a
certain rows and run the macro to format. That part is easy. But I want to
format the first row within the selection to be bold. How can I identify the
first row in the selection?

Please help. Thanks,


With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With

format first row within select
 

Hi Jackie,

Try:

With Selection
.Rows(1).Font.Bold = True
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With

---
Regards,
Norman



"Jackie" wrote in message
...
I try to record macro to format data. My purpose is to every time select a
certain rows and run the macro to format. That part is easy. But I want to
format the first row within the selection to be bold. How can I identify
the
first row in the selection?

Please help. Thanks,


With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With

format first row within select
 

Thanks, It works!

"Norman Jones" wrote:

Hi Jackie,

Try:

With Selection
.Rows(1).Font.Bold = True
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With

---
Regards,
Norman



"Jackie" wrote in message
...
I try to record macro to format data. My purpose is to every time select a
certain rows and run the macro to format. That part is easy. But I want to
format the first row within the selection to be bold. How can I identify
the
first row in the selection?

Please help. Thanks,


With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With