Is there a more elegant way to macro this?
 

Sub changekey()
If Range("b1").Value = "Joint" Then
Range("key1").Value = "J" & Mid(Range("key1").Value, 2, 255)
End If
End Sub

Is there a more elegant way to macro this?
 

Maybe not more elegant, but it would be more robust if you qualify all
appropriate Range's with a sheet reference.

Tim

"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

Is there a more elegant way to macro this?
 

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

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