A VBA IF function that returns an msg with two different font in the same cell

[ifu06416]

Hi there,

I have written an if macro that toggles a hide/unhide range when the ranges header is clicked.

However i would like to add a down arrow for when the range is hidden and an up arrow for when it is unhidden.

my code so far is;

Sub numbers()


Range("8:21").Select
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If


If Selection.EntireRow.Hidden = True Then
Range("G7").Value = "Handler q"
Else
Range("G7").Value = "Handler p"
End If


End Sub

essentially i was looking for away to insert the word "Handler" in calibri and the "q" and "p" in windings3 (which will be the up/down arrows).

thanks,

john.

 

[Fluff]

How about

Range("G7").Characters(9, 1).Font.Name = "Wingdings 3"

 

[ifu06416]

so simple but it would have taken forever for me to find the answer.

much appreciated.

John

 

[Fluff]

Glad to help & thanks for the feedback