You could do this, although it hardly seems simpler

With Columns(13)
Union(.Cells(12), .Cells(17), .Cells(23), .Cells(27), _
.Cells(31), .Cells(36), .Cells(41), .Cells(46), _
.Cells(51), .Cells(58), .Cells(64), .Cells(69), _
.Cells(73), .Cells(78), .Cells(84)).Select
End With

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"erikkeith via OfficeKB.com" <u13156@uwe wrote in message
news:69908edbdce15@uwe...
Is there a way to manipulate a column without having to refer to it every
time? For instance, can I somehow select the column by using M:M and
then
reference the cell rows within that column of M?

Here is what I have:


Range("M12,M17,M23,M27,M31,M36,M41,M46,M51,M58,M64 ,M69,M73,M78,M84").Select
Selection.Interior.ColorIndex = 6
Range("M12").Select
If Range("AB" & sCell(0)).Value = "N" Then
ActiveCell.Value = sNames(0)
Else: ActiveCell = "Alternate"
End If

Here is what I want (after somehow selecting the column "M"):

Range("12,17,23,27,31,36,41,46,51,58,64,69,73,78,8 4").Select
Selection.Interior.ColorIndex = 6
Range("12").Select
If Range("AB" & sCell(0)).Value = "N" Then
ActiveCell.Value = sNames(0)
Else: ActiveCell = "Alternate"
End If

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200611/1