Error 5 argument or call

[Anderson35]

Public espacio As Integer
Public nEQU As Integer
Public ns As Integer
Public NewHoja As Integer
Public O2 As Integer
Public pre As Integer
Public pos As Integer



Public yt As Integer
Dim filf As Integer
Dim colf As Integer
Dim filff As Integer
Dim colff As Integer
Dim filsf As Integer
Dim colsf As Integer

Dim FilIni As Integer, ColIni As Integer
Dim filPre As Integer, filPos As Integer

Sub inicio()
FilIni = 6
ColIni = 5
yt = 1

NombresMatrices
Datos
'''''''''''''''''''''''''''''''''''''''''''''''''
If (pre <> 0) Then prep FilIni, ColIni
f
Hs
'misolver
If (pos > 0) Then post 4 + f0("Mp1") + 4, ColIni, 1
'End
'HDB "I"
' If (pos > 0) Then post 4 + f0("sf") + ns, ColIni
'If (O2 = 2) Then
' HDB "II"
' If (pos > 0) Then post 4 + f0("G") + ns + nEQU, ColIni
'End If
End Sub


Sub f()
''''''''''''''''''''''''''''''''''''''''''''''''
Dim f_ini As Integer
f_ini = 6
If (pre <> 0) Then
f_ini = f_ini + 2 * pre + 3
End If

''''''''''''''''''''''''''''''''''''''''''''''''
i_matriz "f", _
f_ini, ColIni + 1 + espacio, _
nEQU, 1, _
"f"
Matriz_ "f", yt
VerdeAptaOscuroBlancoBold
''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Sub Hs()
Dim F1 As String, F2 As String
Dim tiH As String, titH As String
Dim tis As String, **** As String
Dim tiHs As String, titHs As String
Dim tiMp As String, titMp As String
Dim tiMp1 As String, titMp1 As String
Dim tiaMp As String, titaMp As String
Dim tiaMpp As String, titaMpp As String
Dim tibMp As String, titbMp As String
Dim tibMpp As String, titbMpp As String
tiH = "H": titH = "H"
tis = "s": **** = "s"
tiHs = "Hs": titHs = "H·s"
tiMp = "Mp": titMp = "M_{p}"
tiMp1 = "Mp1": titMp1 = ""
tiaMp = "aMp": titaMp = "@{a}·M_{p}"
tiaMpp = "aMpp": titaMpp = ""

tibMp = "bMp": titbMp = "@{b}·M_{p}"
tibMpp = "bMpp": titbMpp = ""
''''''''''''''''''''''''''''''''''''''''''''''''
i_matriz tiH, _
f0("f") + desp, c0("f") + 1 + espacio, _
nEQU, ns, _
titH
Matriz_ titH, yt
VerdeAptaClaroBlancoBoldNoCero
''''''''''''''''''''''''''''''''''''''''''''''''

i_matriz tis, _
f0("f") + nEQU + 1, c0("f"), _
ns, 1, _
****
Matriz_ ****, yt


For i = 1 To ns
F1 = Application.ConvertFormula( _
Formula:="RC[-3]", _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, toAbsolute:=xlAbsolute)
F2 = Application.ConvertFormula( _
Formula:="RC[3]", _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, toAbsolute:=xlAbsolute)
F1 = "=" & F1 & "+0,000001"
F2 = "=" & F2 & "-0,000001"

ActiveCell.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:="F1", _
Formula2:="F2"
Selection.FormatConditions(1).Interior.ColorIndex = 3
ActiveCell.Offset(1, 0).Select
Next i
''''''''''''''''''''''''''''''''''''''''''''''''
i_matriz tiHs, _
f0("f"), c0("H") + ns, _
nEQU, 1, _
titHs
Matriz_ tiHs, yt

VerdeAptaOscuroBlancoBold

Selection.FormulaArray = "=" & MiMmult("H", "s")

For i = 1 To nEQU
F1 = Application.ConvertFormula( _
Formula:="RC[" & -ns - 1 & "]", _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, toAbsolute:=xlAbsolute)
F2 = Application.ConvertFormula( _
Formula:="RC[" & -ns - 1 & "]", _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, toAbsolute:=xlAbsolute)
F1 = "=" & F1 & "-0,001"
F2 = "=" & F2 & "+0,001"

ActiveCell.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:=F1,
Formula2:=F2

Selection.FormatConditions(1).Interior.ColorIndex = 3
ActiveCell.Offset(1, 0).Select




I dont know how to solve this problem pls help, the error is in the red characters

 

[GWteB]

Hi & welcome to MrExcel.

Try to place it all on one line, like in:

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, Formula1:=F1, Formula2:=F2