Argument not optional error

[svjensen]

I am trying to pass variables to a sub routine, which must then establish an log based on the variables.

But I keep getting the following error:
"Compile error: Argument not optional"

As far as I understand this error indicates, that I have omitted a variable, but that is not the case. Can anyone help?

I call the procedure using:

Call WriteToLog(CurrentFileShort, Projektejer, fnameshort, SourceSheet_BCnumber, SourceRange_BCnumber, ErrorText, link)

The procedure it self is:

Sub WriteToLog(TargetFile As String, TargetSheet As String, shSkabelon as String, SourceFileShort As String, SourceSheet_BCnumber As String, SourceRange_BCnumber As String, ErrorText As String, SourceFileLong As String)
 
    Workbooks(TargetFile).Activate
    Workbooks(TargetFile).Sheets(TargetSheet).Select
    Range("B1").Select
    Call GoToLastRow
    ActiveCell.Offset(0, 0) = Workbooks(SourceFileShort).Sheets(SourceSheet_BCnumber).Range(SourceRange_BCnumber)
    ActiveCell.Offset(0, 1) = ErrorText
    ActiveCell.Offset(0, 2).select
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=SourceFileLong, TextToDisplay:=SourceFileLong
End SUb

 

[Jonmo1]

Um, yes you have left out an argument...

The function you wrote requires 8 arguments - I've numbered them.

Sub WriteToLog(1TargetFile As String, 2TargetSheet As String, 3shSkabelon as String, 4SourceFileShort As String, 5SourceSheet_BCnumber As String, 6SourceRange_BCnumber As String, 7ErrorText As String, 8SourceFileLong As String)

But the code you wrote to call the function, only gives 7, I've numbered them

Call WriteToLog(1CurrentFileShort, 2Projektejer, 3fnameshort, 4SourceSheet_BCnumber, 5SourceRange_BCnumber, 6ErrorText, 7link)

Also, one of the arguments in your function, is not actually used in the function, I colored it Blue.

 

[svjensen]

Well, that is quite embarassing
Apprantly, I had not updated all my calls.

Thanks for the help - and I am sorry for the inconvenience.

/Soren