ok.. here is another question:

I have code that scans sheets for protected cells (Thanks DKenny )

it fills out a new sheet with each cell range like this

Sheet1!A16
Sheet1!A17
etc...

what I would like to do is translate this into a range.. so I dont have 100 or 1000 individual cells listed..

I tried this:
Range("A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13").Select
then
Msgbox Selection.Address
but it returns the same as above $A$2,$A$3 etc..
I would like to get it to return A2:A13

thanks!