Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub AddTextOnRight()
- 'Updateby20131128
- Dim Rng As Range
- Dim WorkRng As Range
- Dim addStr As String
- On Error Resume Next
- xTitleId = "Hoc Excel Online"
- Set WorkRng = Application.Selection
- Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
- addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
- For Each Rng In WorkRng
- Rng.Value = Rng.Value & addStr
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement