Run-time error 1004

[itsmarkdavies]

Hi, i have the following code behind a worksheet :-

Set oSheet = Me
oSheet.UsedRange.Offset(3, 0).EntireRow.Delete

But the line "oSheet.UsedRange.Offset(3, 0).EntireRow.Delete" is generating "Run-time error '1004';". Can anyone tell me what i'm doing wrong please ?, thanks for your time.

[mudraker]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[itsmarkdavies]

Apologies - forgot to mark my code, VBA is as below ...

Please Login or Register  to view this content.

[mudraker]

Not sure what you are trying to do

The code works for me as long as it is placed on a worksheet module

e.g
if sheet has entries in rows 1 to 20
It deletes rows 4 to 23 - Which is the number of rows equal to the number of rows with data offset by 3 rows

[itsmarkdavies]

Hi, that is what i'm trying to do. The first 3 rows contain fixed header information i wish to keep, but i want to delete the contents of all the other rows in the sheet.

Code is in a Module, i'm using Excel 2003 - is there another way to do this ? ... thanks for your input.

[MickG]

Hi, Your code also worked for me, but this is an alternative.

Please Login or Register  to view this content.

Regards Mick

[itsmarkdavies]

Thanks Mick - that works a treat with no errors - i'm up and running !