VBA error when referencing a defined worksheet

[kgkev]

Hi,

I have isolated a piece of code which has been working 3 years which stopped working.
I have found a work around but I would like to know why the original code wouldn't work

This code no longer works
It gives

Runtime Error '9'
Subscript out of range

Sub test()
Dim MS As Worksheet
Set MS = Sheets("Chasing")
With MS
    .Range("H5", .Range("K5000")).ClearContents
End With
End Sub

This code works and has the desired effect.

Sub test()
With Sheets("Chasing")
    .Range("H5", .Range("K5000")).ClearContents
End With
End Sub

even this works

Sub test()
Dim MS As Worksheet
Set MS = Sheets("Chasing")
With MS
    Sheets("Chasing").Range("H5", .Range("K5000")).ClearContents
End With
End Sub

I use "MS....." throughout the module, probably 30+ instances and all other lines of code still function correctly.

Thanks for helping

 

[kgkev]

As part of the fault finding it was just clearing the contents of the used cells. This was modified to a big range and I didn't change it back.

now changed to your suggestions

 

[Alex Blakenburg]

Thanks for letting me know.