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