Disable Overwriting message

[monhuhu]

I wrote my code to generate random numbers and every time there is a alert message say "Press Ok to overwrite data". How to turn this off? I tried

With Application

.DisplayAlerts = False
.ScreenUpdating = False
.AlertBeforeOverwriting = False

End

or

Application.DisplayAlerts = False

BUT it didnt work.



MY code is

Range("A13").Select

Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("$A$13"), 1, 210 _
, 7, , ActiveSheet.Range("$B$6:$C$8")

Range("B13").Select

Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("$B$13"), 1, 210 _
, 7, , ActiveSheet.Range("$B$2:$C$3")

Range("C13").Select

Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("$C$13"), 1, 210 _
, 7, , ActiveSheet.Range("$B$2:$C$3")





End Sub

 

[6StringJazzer]

I am guessing that the Random function you are using is generating this warning. Excel does not give any such warning. I would suggest explicitly deleting data in your destinations first to see if that fixes it.

If I am reading your function call right, you are generating 210 values each time:

ActiveSheet.Range("A13:C223").Clear

Also,two things:
When posting code please use code tags (highlight your code then click the </> symbol in the edit controls)
There is no need for the Select statements in your code.

 

[Michael M]

I'd also have a look in the sheet modules for other code that may be firing when a selection / s gets changed and returning the message.

 

[monhuhu]

It works!! Thank you

I am guessing that the Random function you are using is generating this warning. Excel does not give any such warning. I would suggest explicitly deleting data in your destinations first to see if that fixes it.

If I am reading your function call right, you are generating 210 values each time:

ActiveSheet.Range("A13:C223").Clear

Also,two things:
When posting code please use code tags (highlight your code then click the </> symbol in the edit controls)
There is no need for the Select statements in your code.