文字列の先頭と末尾に文字列を付加する

選択範囲の全てのセルを対象に処理しますぜ。

Sub AppendHeadTail()
	Dim head As String
	Dim tail As String
	Dim target As Range
    
	head = InputBox("先頭に付加する文字列を指定")
	tail = InputBox("末尾に付加する文字列を指定")
    
	For Each target In Selection
		target.Value = head & target.Value & tail
	Next
End Sub