Skip,

Another approach

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
Dim cLastRow As Long

If Target.Column = 1 Then
On Error GoTo ws_exit
Application.EnableEvents = False
cLastRow = Me.Cells(Rows.Count, "A").End(xlUp).Row
For Each cell In Me.Range("A1").Resize(cLastRow, 1)
cell.Value = Trim(cell.Value)
Next cell
End If

ws_exit:
Application.EnableEvents = True
End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Skip Albertson" wrote in message
news:Pine.LNX.4.60.0412271247070.7273@tsunami...
Relatively infrequent VBA programmer needs help writing small ap (this
will set me in the right direction with so many others).

I would like to pick any cell in a worksheet, and have it run this Macro
for that column (so that everything is relative to the column selected
and that the row selected is ignored).

As an example using the TRIM function, I want to replace the column
selected with the all the values trimmed.

Step 1:

Determine the column selected (and store it somewhere?)

Step 2:

Insert two columns after the selected one. Put the TRIM value of each
entry in the original column in the the first new column, copy
paste-values into the second new column (so the original can be erased).

Step 3: Erase the original column and the first new column, leaving only
the new trimmmed column. (If you want to save the initial row
value you could return the pointer to the original cell (optional)).

Thanks!