Is there a more elegant way to macro this?
Thank you
"NickHK" wrote:
Brad,
You can work with the .Characters instead:
Range("key1").Characters(1, 1).Text = "J"
NickHK
"Brad" wrote in message
...
Sub changekey()
If Range("b1").Value = "Joint" Then
Range("key1").Value = "J" & Mid(Range("key1").Value, 2, 255)
End If
End Sub
|