Here's the Macro.


Code:
--------------------

Sub Replacator()
'Define Variables

Dim originalvalue
Dim secondvalue
Dim thirdvalue
Dim CurrColumn
Dim CurrRow
Dim ResultsColumn
Dim NewColumn
Dim NewRow
Dim TestNow
Dim SkipNumber
'Set default 'skipping number'
SkipNumber = 4
Application.ScreenUpdating = False

'Set original values
TestNow = ActiveCell.Value
OrigColumn = ActiveCell.Column
OrigRow = ActiveCell.Row
ResultsColumn = OrigColumn + 1

'Begin Loop
While TestNow < ""

'Set Current Cell
CurrColumn = ActiveCell.Column
CurrRow = ActiveCell.Row

'If starting in the first row, modify
If CurrRow = 1 Then
SkipNumber = 2
End If

'Current Row * 3 (3 mods) - Skip = First Blank Cell
NewRow = (CurrRow * 3) - SkipNumber

'Define Replacements from List
originalvalue = ActiveCell.Value
secondvalue = """" & originalvalue & """"
thirdvalue = "[" & originalvalue & "]"

'Select First Cell
Cells(NewRow, ResultsColumn).Select

'Replace First Value
ActiveCell.Value = originalvalue

'Set Next Cell
NewRow = NewRow + 1
NewColumn = CurrColumn
Cells(NewRow, ResultsColumn).Select

'Replace Second Value
ActiveCell.Value = secondvalue

'Set Final Cell
NewRow = NewRow + 1
NewColumn = CurrColumn
Cells(NewRow, ResultsColumn).Select

'Replace Final Value
ActiveCell.Value = thirdvalue

'Reset to Beginning
NewRow = CurrRow + 1
Cells(NewRow, OrigColumn).Select

'Test if at End of List
TestNow = ActiveCell.Value
Wend
'Reset Excel
Application.ScreenUpdating = True

'Beep completion
Beep
End Sub

--------------------


-Bob


---
Message posted from http://www.ExcelForum.com/