Run 3 macros with VB Code

[rizmomin]

Hello:

I need a VB Macro to run 3 macros one after another with 5 sec delay between each.

Assume Name of the macro as Macro1, Macro2 and Macro3

Thanks and let me know if you have any questions

Riz Momin

[HaHoBe]

Hi, Riz Momin,

maybe like this:

Please Login or Register  to view this content.

Ciao,
Holger

[rizmomin]

Hi HaHoBe:

Please Login or Register  to view this content.

Sub RsetValues()
Dim Rng As Range
Application.Calculation = xlManual
'Change UsedRange to range("a1:d50") or range("a1:b50","d1:d50")- use cell refence that you need to change.
Application.GoTo Cells(119, 15)
For Each Rng In Sheets("Dly_Recpt").Range("O119:EG606")
If IsNumeric(Rng) Then
If Not IsDate(Rng) Then
If Rng > 0 Or Rng < 0 Then
Rng = 0
End If
End If
End If
Next Rng
End Sub
Sub RsetFactor()
Dim Rng As Range
'Change UsedRange to range("a1:d50") or range("a1:b50","d1:d50")- use cell refence that you need to change.
'Use this macro after using Macro Copy Paste1,2....Correctnumber1,2
Application.GoTo Cells(1, 1)
For Each Rng In Sheets("Daily_Receipt").Range("A1:EG1")
If IsNumeric(Rng) Then
If Not IsDate(Rng) Then
If Rng > 0 Or Rng < 0 Then
Rng = Null
End If
End If
End If
Next Rng
End Sub

Please Login or Register  to view this content.

[rizmomin]

Hi HaHoBe:

Please Login or Register  to view this content.

Ok above are the 2 Macros.
i need a macro to run 2 of the above macros with 1 command with 5 sec delay

Let me know if any questions.

Riz

[HaHoBe]

Hi, Riz,

substitute Macro1 with RsetValues and Macro2 with RsetFactor?

Please Login or Register  to view this content.

The range has been narrowed down to numbers as constants only.

Ciao,
Holger

[rizmomin]

Hi HahoBe:

Thank you so much...this will work for me.

Riz