For each cell in selection

[gaj104]

Hi,

Can't quite work out the code i need to change values in a selection:

I.e.

Sub SelTest()

For Each cell In Selection

.Value = "'" & .Value

Next

End Sub

I fall down in the "cell" part.

Help much appreciated.

 

[Jon von der Heyden]

Hi,

Try:

Sub SelTest() 

Dim c as Range

For Each c In Selection
    c = "'" & c.Value
Next c

End Sub

HTH
Jon

 

[gaj104]

Excellent stuff, thanks Jon