VBA Excel highlight all columns

crmpicco · April 18th, 2005, 09:44 AM

I have this code:

Code:

Sub select_row_b()
Range("A1", Range("A1").End(xlDown)).Select
End Sub

I am looking for code that will take each column in turn (in a loop) and highlight it.

Picco

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt

maxpotters · April 18th, 2005, 10:00 AM

hi,

to select a whole column, use this code (column A as example)

Sheet1.Range("A:A").Select

crmpicco · April 18th, 2005, 10:10 AM

This code below gives me the error:

Run_time Error: 1004
Application-defined or object-defined error

____________________________________________

Code:

Sub select_row_a()
Sheet1.Range("A:A").Select
End Sub

does this highlight all columns in turn?

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt

maxpotters · April 18th, 2005, 02:34 PM

that is possible if you havent selected sheet1 first (and, if you have it on another sheet, you need do try ThisWorkbook.Sheets(shtname)

so this should help you

Code:

thisworkbook.sheets(shtname).select   'shtname is the name of your sheet
activesheet.range("A:A").select

mjppaba · April 19th, 2005, 02:15 AM

Dim myloop As Integer
Range("A1").EntireColumn.Select
myloop = 1
Do Until myloop = 256
ActiveCell.Offset(0, 1).EntireColumn.Select
myloop = myloop + 1
Loop

cheers

Matthew