Adding a delay

I have a macro that open links in column F and Column G, I will like it to open link F and wait 5 seconds before opening Column G. I've manages to make it wait 15 seconds after opening both column F and G but I can't seem to make it wait 5 seconds in between the links in Column F and Column G. Please help me

Sub OpenLinks()
Dim r As Range
With Sheets("Inventory")
    For Each r In .Range("C2:C" & .Range("C" & .Rows.Count).End(xlUp).Row)
        If r.Value < 0 Then
            r.Offset(, 3).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            r.Offset(, 4).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            Application.Wait (Now + TimeValue("0:00:15"))
         End If
    Next r
End With
End Sub

Moderator Note:

Pls use code tags around your code next time as per forum rules.