Dim? rg？ As? Range,? str？ As? line

str？ =? " A "

For what? Every one? rg？ Are you online? ActiveSheet。 Scope ("b5:e 12")

What if? rg？ & lt& gt？ ""? then what str？ =? str？ & amp？ Right (rg,? 1)

then

ActiveSheet。 Range ("b 1")? =? Thermal neutron reactor for submarine (abbreviation of submarine thermal reactor)

End? submarine