Running Several Macros One after another

Hey all,

So I have created a macro, that runs a series of other macros. Please see here the code:

Sub RunDividendUpdate()
    Dim Msg As String
    Sheets("Dividends").Select
    If Range("DateToday") = Range("DateDividendsLastRan") Then
                                                          Sheets("Portfolio Management Screen").Select
                                                          MsgBox "The Dividend Procedure has already run today"
    ElseIf Range("DateToday") <> Range("DateDividendsLastRan") Then
                                                          LoadDividendData
                                                          LeaveOnlyExDividendStocks
                                                          CalculateDividend
                                                          SumDividendtoTotal
                                                          TimeStampDividendsProcedure
                                                          UpdateDividendData
                                                         
    End If
End Sub

When I run this macro by pressing F5 the sequence stops before the TimeStampDividendsProcedure. It just stops. No error message. I then press F5 again and the TimeStampDividendsProcedure and UpdateDividendData run correctly.

The only indication I have is the End Sub part of SumDividendtoTotal is highlighted a burgundy red colour.

I have placed the code below for the SumDividendtoTotal and TimeStampDividendsProcedure.

Sub SumDividendtoTotal()
    Dim Cell As Range
    Range("DividendTickers").Select
    For Each Cell In Selection
        If Len(Cell.Value) >= 1 Then
                                Range("TotalDividendReceived").Copy
                                Cell.Offset(0, 6).Range("A1").Select
                                ActiveSheet.Paste
                                Application.CutCopyMode = False
    End If
    Next Cell
End Sub

Sub TimeStampDividendsProcedure()
     With Range("DateDividendsLastRan")
    .Value = Date
    .NumberFormat = "dd/mm/yyyy"
    End With
End Sub

As I have had no error message this has been difficult to de-bug. Hence why I post for help

Thanks

Originally Posted by XeRo Solus

You're not getting an error here:

Cell.Offset(0, 6).Range("A1").Select

What are you trying to do with this line?

This is to copy a formula down which adds to cells together in the row.

I just had another look through all the macros following your comment and it all seemed fine. I ran again the 'run all macro' and it works. I really dont understand as it was definitely not working earlier.

Thanks very much for your reply, and sorry if i wasted your and anyone elses time

Thanks again