Problem is it is easy to see it working in an excel sheet. I'll post it on
when I have finished it heres the basics:
Private Sub HideRowsAndColumns(ScrollRange)
Dim row1 As Long, row2 As Long, col1 As Long, col2 As Long
Dim MaxRows As Long, MaxCols As Long
MaxRows = ActiveSheet.Rows.Count
MaxCols = ActiveSheet.Columns.Count
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
row1 = ScrollRange.Range("A1"

.Row
row2 = row1 + ScrollRange.Rows.Count - 1
col1 = ScrollRange.Range("A1"

.Column
col2 = col1 + ScrollRange.Columns.Count - 1
On Error GoTo ErrHandle
If row1 <> 1 Then Range(Cells(1, 1), Cells(row1 - 1, 1)).EntireRow.Hidden = True
If row2 <> MaxRows Then Range(Cells(row2 + 1, 1), Cells(65536, 1)).EntireRow.Hidden = True
If col1 <> 1 Then Range(Cells(1, 1), Cells(1, col1 - 1)).EntireColumn.Hidden = True
If col2 <> MaxCols Then Range(Cells(1, col2 + 1), Cells(1, 256)).EntireColumn.Hidden = True
Application.ScreenUpdating = True
Exit Sub
ErrHandle:
Application.ScreenUpdating = True
MsgBox "An error occurred." & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Make sure that the rows and columns to be hidden do not contain any charts, graphic objects, or cell comments.", vbInformation, APPNAMEEx2
On Error Resume Next
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
On Error GoTo 0
End Sub