column hiden and check the syntax

[VBABEGINER]

Hi,

All Experts,

I am using multiple sheets, i tryed this -

For k = 1 To Worksheets.Count
Worksheets.Item(k).Activate
With ActiveSheet
.Columns("x:ae").EntireColumn.Hidden = True
End With

But still sheets are not hide. currently sheets are hide till col p.
I tryed to extend.
Can this possible.

And the 2 nd problem is the following code is right in syntax.

For i = 8 To p
If (Left(Cells(i, 1), 2)) = "IC" Then
Cells(i, 39) = 1
Else: Cells(i, 39) = 2
End If
Next i
End If
Next k

'Range(Cells(11, 1), Cells(p, 39)).Select

Range("A8:N100").Select

Selection.Sort Key1:=Range("AN11"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

Here is the problem is that -
insted of sort col A, values in col AN values "2" shown in col A.

I totally unware about the sorting condition.

Can any one, pls!!

 

[wigi]

For k = 1 To Worksheets.Count
   Worksheets(k).Columns("X:AE").EntireColumn.Hidden = True
Next

 

[VBABEGINER]

Hi Wigi,

Thanks for your kind attention.

but 2nd one still pending....i trying some r&d. any i will let u know guys.