Hello mcgj,

Dim Address As String
Dim Cell
Dim Rng As Range
Dim Selections As Long

Set Rng = Application.Selection

Selections = Rng.Areas.Count
Address = Rng.Areas(1).Address

Selections will equal the number of cells selected. Zero indicates
nothing was selected. You can use a For Each loop to sequence through
automatically...

For Each Cell In Rng.Areas
'<Add in your code
Next Cell

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=497786