Hmmmm. There must be a trick to this one. The following code works just fine:

With ActiveSheet.Shapes("TB purchase n")
.Fill.Visible = msoTrue
End With

but this does not work:
With ActiveSheet.Shapes("TB purchase n")
.Font.Bold = True
End With

It seems when I'm working with a font I have to select the shape (which I'd
rather not do). This works:
ActiveSheet.Shapes.Range("TB purchase n").Select
Selection.Font.Bold = True

Could someonr throw some light on this for me please? Regards, Brett.

Try this

With ActiveSheet.Shapes("TB purchase n")
.TextFrame.Characters.Font.Bold = True
End With


--
__________________________________
HTH

Bob

"Brettjg" wrote in message
...
Hmmmm. There must be a trick to this one. The following code works just
fine:

With ActiveSheet.Shapes("TB purchase n")
.Fill.Visible = msoTrue
End With

but this does not work:
With ActiveSheet.Shapes("TB purchase n")
.Font.Bold = True
End With

It seems when I'm working with a font I have to select the shape (which
I'd
rather not do). This works:
ActiveSheet.Shapes.Range("TB purchase n").Select
Selection.Font.Bold = True

Could someonr throw some light on this for me please? Regards, Brett.

Thanks Bob, that works, but this doesn't:

With ActiveSheet.Shapes.Range(Array("TB purchase 1", "TB purchase 2", "TB
purchase 3", "TB purchase"))
.TextFrame.Characters.Font.Bold = False
.Fill.Visible = msoFalse
End With

and I suspect that you can only use textframe with one shape. Is that right?

"Bob Phillips" wrote:

Try this

With ActiveSheet.Shapes("TB purchase n")
.TextFrame.Characters.Font.Bold = True
End With


--
__________________________________
HTH

Bob

"Brettjg" wrote in message
...
Hmmmm. There must be a trick to this one. The following code works just
fine:

With ActiveSheet.Shapes("TB purchase n")
.Fill.Visible = msoTrue
End With

but this does not work:
With ActiveSheet.Shapes("TB purchase n")
.Font.Bold = True
End With

It seems when I'm working with a font I have to select the shape (which
I'd
rather not do). This works:
ActiveSheet.Shapes.Range("TB purchase n").Select
Selection.Font.Bold = True

Could someonr throw some light on this for me please? Regards, Brett.

Yes, just iterate the array.

--
__________________________________
HTH

Bob

"Brettjg" wrote in message
...
Thanks Bob, that works, but this doesn't:

With ActiveSheet.Shapes.Range(Array("TB purchase 1", "TB purchase 2", "TB
purchase 3", "TB purchase"))
.TextFrame.Characters.Font.Bold = False
.Fill.Visible = msoFalse
End With

and I suspect that you can only use textframe with one shape. Is that
right?

"Bob Phillips" wrote:

Try this

With ActiveSheet.Shapes("TB purchase n")
.TextFrame.Characters.Font.Bold = True
End With


--
__________________________________
HTH

Bob

"Brettjg" wrote in message
...
Hmmmm. There must be a trick to this one. The following code works just
fine:

With ActiveSheet.Shapes("TB purchase n")
.Fill.Visible = msoTrue
End With

but this does not work:
With ActiveSheet.Shapes("TB purchase n")
.Font.Bold = True
End With

It seems when I'm working with a font I have to select the shape (which
I'd
rather not do). This works:
ActiveSheet.Shapes.Range("TB purchase n").Select
Selection.Font.Bold = True

Could someonr throw some light on this for me please? Regards, Brett.