Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7DayΔ"

but I am unable to get the Δ character to work. Possibly I have to use
unicode?

Thanks,
David

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub



"David" wrote in message
...
Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7Day?"

but I am unable to get the ? character to work. Possibly I have to use
unicode?

Thanks,
David

Hi,
This worked, thank you. I got it to work with out the MyText

Sub dk()
Range("B2") = "7DayD"
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

Thanks Again,
David

"JLGWhiz" wrote:

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub



"David" wrote in message
...
Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7Day?"

but I am unable to get the ? character to work. Possibly I have to use
unicode?

Thanks,
David


.

Sorry,

I did some other research and found:
ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(948)
but the above does not give me Delta, but some other character. Any ideas,
it is simplier to use, if it would work correctly.

Thanks,
David

"David" wrote:

Hi,
This worked, thank you. I got it to work with out the MyText

Sub dk()
Range("B2") = "7DayD"
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

Thanks Again,
David

"JLGWhiz" wrote:

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub



"David" wrote in message
...
Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7Day?"

but I am unable to get the ? character to work. Possibly I have to use
unicode?

Thanks,
David


.

David,

948 is lower case delta, ChrW(916) is upper case (though I'm sure there are
others as well, such as 8710).

ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(916)

HTH,
Bernie
MS Excel MVP


"David" wrote in message
...
Sorry,

I did some other research and found:
ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(948)
but the above does not give me Delta, but some other character. Any ideas,
it is simplier to use, if it would work correctly.

Thanks,
David

"David" wrote:

Hi,
This worked, thank you. I got it to work with out the MyText

Sub dk()
Range("B2") = "7DayD"
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

Thanks Again,
David

"JLGWhiz" wrote:

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub



"David" wrote in message
...
Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7Day?"

but I am unable to get the ? character to work. Possibly I have to
use
unicode?

Thanks,
David


.

Hi Bernie,

This worked perfectly. I looked all over and saw the other ChrW in several
places, but it sure did not work. Did you find this on line? Could you share
the reliable source that you used, since mine was wrong?

Thanks Again,
David

"Bernie Deitrick" wrote:

David,

948 is lower case delta, ChrW(916) is upper case (though I'm sure there are
others as well, such as 8710).

ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(916)

HTH,
Bernie
MS Excel MVP


"David" wrote in message
...
Sorry,

I did some other research and found:
ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(948)
but the above does not give me Delta, but some other character. Any ideas,
it is simplier to use, if it would work correctly.

Thanks,
David

"David" wrote:

Hi,
This worked, thank you. I got it to work with out the MyText

Sub dk()
Range("B2") = "7DayD"
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

Thanks Again,
David

"JLGWhiz" wrote:

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub



"David" wrote in message
...
Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7Day?"

but I am unable to get the ? character to work. Possibly I have to
use
unicode?

Thanks,
David


.


.

David,

I didn't have a source - I wrote a bit of code like

Sub ListExtendedASCII()
Dim i As Integer
Dim j As Integer
For i = 901 To 1000
With Cells(i - 900, 1)
.Value = ChrW(i)
.Offset(, 1) = AscW(.Value)
End With
Next i
End Sub

to look at the characters in the 900 range, since I knew from you that 948 was lower case delta.

You can extend the code to show the whole list.

HTH,
Bernie
MS Excel MVP


"David" wrote in message
...
Hi Bernie,

This worked perfectly. I looked all over and saw the other ChrW in several
places, but it sure did not work. Did you find this on line? Could you share
the reliable source that you used, since mine was wrong?

Thanks Again,
David

"Bernie Deitrick" wrote:

David,

948 is lower case delta, ChrW(916) is upper case (though I'm sure there are
others as well, such as 8710).

ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(916)

HTH,
Bernie
MS Excel MVP


"David" wrote in message
...
Sorry,

I did some other research and found:
ActiveCell.Offset(1, 5).Value = "7Day" & ChrW(948)
but the above does not give me Delta, but some other character. Any ideas,
it is simplier to use, if it would work correctly.

Thanks,
David

"David" wrote:

Hi,
This worked, thank you. I got it to work with out the MyText

Sub dk()
Range("B2") = "7DayD"
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub

Thanks Again,
David

"JLGWhiz" wrote:

Try this:

Sub dk()
MyText = "7DayD"
Range("B2") = MyText
Range("B2").Characters(5, 5).Font.Name = "Symbol"
End Sub



"David" wrote in message
...
Hi Group,

I have a cell where I am trying to put in some text:
ActiveCell.Offset(1, 5).Value = "7Day?"

but I am unable to get the ? character to work. Possibly I have to
use
unicode?

Thanks,
David


.


.