Pasar parámetros a través de Ado a un SP

La idea es que lea el valor de la celda y este sea enviado al SP, le asigno el valor de la siguiente manera
numero = inserta.Range("B2").Value

Esta es mi Macro.

Set inserta = Sheets("Hoja1")

numero = inserta.Range("B2").Value ' asigno valor a la variable

Dim conConnection As ADODB.Connection
Dim cmdExecute As ADODB.Command
Dim strSQL As String
On Error GoTo eHand
Set conConnection = New ADODB.Connection
Set cmdExecute = New ADODB.Command
conConnection.ConnectionString = _
"Provider=SQLOLEDB.1;" & _
"Password=consulta;" & _
"Persist Security Info=True;" & _
"User ID=consulta;" & _
"Initial Catalog=BDFlexline;" & _
"Data Source=Aqui va la IP" ' La ip la conozco
conConnection.Open
cmdExecute.ActiveConnection = conConnection
cmdExecute.CommandText = "Inserta_OD 'numero'" Aqui  ejecuto el SP y paso la variable
cmdExecute.CommandTimeout = 120
cmdExecute.CommandType = adCmdText
cmdExecute.Execute

Exit Sub

Pero en vez de insertar el valor inserta el "nombre" de la variable. Ayuda por favor