Hide non ajacent colums with a Macro

**Shazz** · 02-01-2013, 06:51 AM

I am trying to hide non adjacent columns in a spreadsheet with a macro, I can select the columns no problem and hide them but when I assign the macro I have recorded to a button it hides all the colums between the ones I have selected as well.

Does anyone no what I am doing wrong and how to fix it.

The Macro I have recorded is

Sub Hide_all()
'
' Hide_all Macro
'

'
Range("N:N,K:N,C:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-2
End Sub

**Mowgli** · 02-01-2013, 07:47 AM

Shazz,

Just looking there but your code shows that you select Row C and everything from Row K to Row N. If you want to hide those 3 rows (C, K & N), try the following in place of your code.

Sub Hide_all()
' Hide_all Macro
Range("N:N,K:K,C:C").EntireColumn.Hidden = True
End Sub

Mowgli

**Shazz** · 02-01-2013, 08:01 AM

Unfortunately this is also hiding the whole lot as well, I need to Hide C, K, L, M and N.

Shazz

**Mowgli** · 02-01-2013, 08:27 AM

Shaz,

I changed the Range to hide Column C and Columns K to N (as opposed to the rows which I misstyped earlier). the following code works fine on my machine, can you upload an example to see if anything else is playing havoc with it? I currently have all Columns except C, K, L, M and N visible when I run Hide_all.

Sub Hide_all()
' Hide_all Macro
Range("C:C,K:N").EntireColumn.Hidden = True
End Sub

Mowgli

**Shazz** · 02-01-2013, 08:32 AM

Hi Mowgli,

I now have the Hide Macro working but now the unhide macro is not working, something strange is happening here, but it works if I go to the developer tab and run it through there.

Attached is a copy example of the spreadsheet.

Your help is very much apprciated.

Shazz
xx