Hi All !

I have next macro , which move blocks of
data , in combinatoric order , from columns 11 to 20 ,
in columns 1 to 3 :

Sub moveblocksofdata ( )
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer

For i1 = 11 To 18
For i2 = i1 + 1 To 19
For i3 = i2 + 1 To 20
Range("A1:A203") = .Range(Cells("1", i1), _
Cells("203", i1)).Value
Range("B1:B203") = .Range(Cells("1", i2), _
Cells("203", i2)).Value
Range("C1:C203") = .Range(Cells("1", i3), _
Cells("203", i3)).Value
Next i3
Next i2
Next i1
End Sub

Can this be done in another way , useing hide - unhide method ?
I mean , let's be a block of data in a range ( from column 11
to column 20 ) ; can hide - unhide to do the exact result from
previous macro , so , all the time to be no more then 3 columns ?
In every step , must to be hide 7 columns .

I'd like very much and it's very usefull for me to get know if this
thing can be possible useing hide - unhide .

Thank you very much for your time and knowledge share !