For Each cell In Selection.....
Just resize the range you are looking through...
For Each Cell In Selection.Resize(Selection.Count - 1)
Note that if your selection is just a single cell, this code will generate an error, so you should check for that. May this...
If Selection.Count = 1 Then Exit Sub
For Each Cell In Selection.Resize(Selection.Count - 1)
....
....
or this...
If Selection.Count 1 Then Exit Sub
For Each Cell In Selection.Resize(Selection.Count - 1)
....
....
End If
....
....
depending on how the rest of your code needs to be handled.
--
Rick (MVP - Excel)
"Luc" wrote in message ...
The selection contains 1 column
The number of rows is variable
If i want to execute the "For Each cell In Selection" command, but i want the execute this for 1 row less than the actual selection...(the last row is not to be executed)
How do i do this ?
Thanx,
Luc
|