"Delete entire sheet row?"

[KentKHI]

I have a message box that says "Delete entire sheet row?" that pops up when I run this line of code:

CurWks.Range("A4:J2000").Delete

This must be an automatic excel message box because I have not created it. Is there anyway to incorporate a "yes" reply into the code or to stop the box from appearing?

 

[njimack]

Application.DisplayAlerts = False
CurWks.Range("A4:J2000").Delete
Application.DisplayAlerts = True

 

[mae0429]

You need to turn off alerts for that section:

Application.DisplayAlerts = False
CurWks.Range("A4:J2000").Delete
Application.DisplayAlerts = True

That should do the trick.

-Matt

 

[mae0429]

Gah! Too slow on the trigger...

 

[KentKHI]

Thanks guys! Looks like a simple fix!

Not too slow, I actually appreciate putting two bullets in this one. Now, I know for sure.