Hiding unused columns

[Darin Kramer]

Howdie,

Im trying to go from column BY all the way to the left till first column
of data is found. Then hide all columns one to the right of the last
found column.
Eg data in column g, then want to hide H to BY. (columns with data will
vary. End point is always BY)

VB below almost works - it just hides last column with data in it (ie
column G) as well, and I need it to hide column H

Sub test

Application.Goto Reference:="R1C77"
Columns("BY:BY").Select
Range(selection, selection.End(xlToLeft)).Select
selection.EntireColumn.Hidden = True

End sub

Thanks

Darin



*** Sent via Developersdex http://www.developersdex.com ***

 

[Bob Phillips]

Sub test()

Range(Range("BY1"), Range("BY1").End(xlToLeft)).Offset(0,
1).EntireColumn.Hidden = True

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Roger Govier]

Hi Darin

Just put in an offset of 1 column and resize by 1 less than your column
count, to prevent BZ getting hidden instead.

Sub test()

Application.Goto Reference:="R1C77"
Columns("BY:BY").Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Offset(0, 1).Resize(1, Selection.Columns.Count - 1).Select
Selection.EntireColumn.Hidden = True

End Sub

 

[Darin Kramer]

Thanks!!! Works Perfectly!

*** Sent via Developersdex http://www.developersdex.com ***