Excel 2003 Error 13 Type mismatch

[vladk]

Hello everyone

This code breaks on line 1 with that error

Private Sub HideExtrapolatingLines(ByRef ioobjWsht As Worksheet)
    
    Const METHOD_NAME As String = "HideExtrapolatingLines"
    
    On Error GoTo MethodExit

1   ioobjWsht.Rows("307:310").EntireRow.Hidden = True
2   ioobjWsht.Rows("263:268").EntireRow.Hidden = True
3   ioobjWsht.Rows("200:211").EntireRow.Hidden = True
4   ioobjWsht.Rows("157:162").EntireRow.Hidden = True
5   ioobjWsht.Rows("95:105").EntireRow.Hidden = True
6   ioobjWsht.Rows("52:57").EntireRow.Hidden = True
    
MethodExit:
    
    If Err.Number <> 0 Then
        MsgBox "Error " & CStr(Err.Number) & " in " & METHOD_NAME & vbCr & Err.Description & vbCr & Erl
    End If
    
End Sub

This is the call:

    Dim objWsht As Worksheet
    HideExtrapolatingLines objWsht

The code does work in debug mode and does not work when I let it run with F5.

Can anybody explain why?

Thank you!

 

[SkipVought]

hi,

    Dim objWsht As Worksheet

    [b][highlight]Set objWsht = ????????[/highlight][/b]

    HideExtrapolatingLines objWsht

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[vladk]

Hi Skip,

Actually, I had to activate sheet in code, don't understand why, it was activated anyway!

Thank you!

 

[SkipVought]

Exactly what code?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}