With Statement

[Kevin H. Stecyk]

Hi,

I am doing something incorrect.

With Range("$A$3")
..Text = "Current Configuration"
..Font.Bold = True
..HorizontalAlignment = xlLeft
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With

When the cursor hits the Text line, it crashes with "Run-time error '424':
Object required.

What am I doing wrong.

Also, can I nest a With Statement within a With Statement?

Thank you.

Regards,
Kevin

 

[Rob van Gelder]

..Text is read-only for a Range.

Try .Value = instead

 

[Chip]

Range("$C$5").Select
ActiveCell.Value = "Current Configuration"

With Selection
..Font.Bold = True
..HorizontalAlignment = xlLeft
With .Borders(xlEdgeRight)
..LineStyle = xlContinuous
..Weight = xlMedium
..ColorIndex = xlAutomatic
End With
End With

 

[Kevin H. Stecyk]

Rob van Gelder wrote...

.Text is read-only for a Range.

Try .Value = instead

Thank you very much Rob.

Best regards,
Kevin

 

[Kevin H. Stecyk]

Chip wrote in message ...

Range("$C$5").Select
ActiveCell.Value = "Current Configuration"

With Selection
.Font.Bold = True
.HorizontalAlignment = xlLeft
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With

Thank you very much Chip.

Best regards,
Kevin