Your a genius!
I was missing the proper range format.

I used the following lines to achive what i wanted:

To get the "D:D" stringi used the following:
rangeArray(colindex) = objws.Cells(1, colindex).EntireColumn.Address()

Dim myStr As String
For Each myStr In rangeArray
If myStr < "" Then
objws.Columns(myStr).Hidden = True
End If
Next

And this to finish it off.