Error with Macro and referencing another sheet

I have a module that runs an update. I would like for it to run some code on another sheet then jump back to the module.
I keep getting a Compile error. Sub or Function not defined. I must be using the wrong Call on the TargetUpdate

Sub Update()
Application.OnTime Now + TimeValue("00:02:00"), "my_macro"

End Sub
Sub my_macro()

For Each objconnection In ThisWorkbook.Connections
    ThisWorkbook.RefreshAll
Next

Call TargetUpdate
Call Update

End Sub

Here is what I am trying to get ran from the TargetUpdate on sheet1

Private Sub TargetUpdate(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("F2"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > Range("E2").Value Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "" & vbNewLine & vbNewLine & _
"" & vbNewLine & _
""
On Error Resume Next
With xOutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = Range("F2").Value & " / " & Range("A2").Value
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Make TargetUpdate Public (it is Private).

Also when you call it you must provide the argument value for Target.

Put TargetUpdate in a standard module, or try Call Sheet1.TargetUpdate. I'd go with the first option. And you need to pass the Target range to the called subroutines.

Originally Posted by jolivanes

my_macro should also be without double quotation marks.

For a call to OnTime, the name of the macro to be called must be in double quotation marks.

Still getting an error Argument not optional

Yes, because you're not passing the Target variable when you call the subroutine. Looks like it can find it now because it wants the parameter you promised it.

Call Sheet1.TargetUpdate

TargetUpdate requires a single argument, which is a Range. You are not passing any argument. Your call should look something like

Sheet1.TargetUpdate Range("F2")

But CAUTION you have not explained what you want your code to do so I actually have no idea what should really be there.