How to ignore hidden columns

[elmnas]

Hello people,

I have made following code,
this is a very easy loop that loops all used cells in active sheet.

Sub test()


For x = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
 ' put some code here.
Next x


End Sub

How can I make the loop ignore hidden columns?

Thank you in advance