I want to hide Columns from the last used cell in Row NO. 10 till the end column.

[Harshil Mehta]

I want to hide Columns from the last used cell in Row NO. 10 till the end column.

Sub Hide_Column_Rows()

Dim LastRow, LastColumn As Long

LastColumn = Cells("10", Columns.Count).End(xlToLeft).Column
Range(LastColumn + 2 & ":XFD1048576").EntireColumn.Hidden = True

LastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & LastRow + 2 & ":B1048576").EntireRow.Hidden = True


End Sub

 

[mikerickson]

With Range("10:10")
    Range(.Cells(1, .Columns.Count), .Cells(1, .Columns.Count).End(xlToLeft).Offset(0,1)).EntireColumn.Hidden = True
End With