I just tested this in xl2002 and it worked.??

Sub setrng()
Dim fogadrng As Range
Set fogadrng = Range("C8:C12,E8:E12,G8:G12,I8:I12,K8:K12")
For Each c In fogadrng
MsgBox c.Address
Next
End Sub

or
for each c in range("C8:C12,E8:E12,G8:G12,I8:I12,K8:K12")
MsgBox c.Address
Next


--
Don Guillett
SalesAid Software

"Stefi" wrote in message
...
Hi All,

Why

Dim fogadrng As Range
Range("C8:C12,E8:E12,G8:G12,I8:I12,K8:K12").Select
Set fogadrng = Selection

works and

Dim fogadrng As Range
Set fogadrng = Range("C8:C12,E8:E12,G8:G12,I8:I12,K8:K12")

does not?

Thanks,
Stefi