Run-time error 5, Invalid procedure call or argument

[cmb80]

I get this message and it debugs to my code here. The part in red is where it is highlighted by VBA

If Sheet7.Range("f1").Value <> "" Then
For Each rcell In Sheet7.Range("f1:f" & maxrow1)
url1 = rcell.Value

Set http1 = CreateObject("MSXML2.XMLHTTP")
Debug.Print url1
http1.Open "GET", url1, False
http1.send
Text1 = http1.responseText
len1 = Len(Text1)

x = InStr(1, Text1, "<a href=" & Chr(34) & "#" & Chr(34) & " onclick=" & Chr(34) & "tz")
If x > 0 Then
date1 = Mid$(Text1, x + 37, 22)
End If

date1 = Replace(date1, "&month=", Chr(134))
date1 = Replace(date1, "&day=", Chr(135))
date1 = Replace(date1, "&", Chr(136))

sDate = Mid(date1, InStr(1, date1, Chr(135)) + 1, (InStr(1, date1, Chr(136))) - (InStr(1, date1, Chr(135)) + 1)) _
        & "." & Mid(date1, InStr(1, date1, Chr(134)) + 1, (InStr(1, date1, Chr(135))) - (InStr(1, date1, Chr(134)) + 1)) _
        & "." & Left(date1, 4) & Chr(124)

Anything obvious triggering this error?

[Andy Pope]

Impossible to tell from code snippet alone.
The code compiles so it must be the values held in the variables.

Use debugger to check content of the values and returned values from functions. Make sure the calculations result in positive values.

[Andy Pope]

Impossible to tell from code snippet alone.
The code compiles so it must be the values held in the variables.

Use debugger to check content of the values and returned values from functions. Make sure the calculations result in positive values.

[cmb80]

Hi Andy - many thanks for your reply.

Please advise how i'd go about doing the last sentence?

[Andy Pope]

Quickest way, if you don't know how to use the debugging tools in VBE is to use Debug.Print command.
This will output the values in the Immediate window. You can see the immediate window by typing CTRL+G in VBE

debug.print date1
debug.print InStr(1, date1, Chr(135)) + 1
debug.print (InStr(1, date1, Chr(136))) - (InStr(1, date1, Chr(135)) + 1)

sDate = Mid(date1, InStr(1, date1, Chr(135)) + 1, (InStr(1, date1, Chr(136))) - (InStr(1, date1, Chr(135)) + 1)) _
        & "." & Mid(date1, InStr(1, date1, Chr(134)) + 1, (InStr(1, date1, Chr(135))) - (InStr(1, date1, Chr(134)) + 1)) _
        & "." & Left(date1, 4) & Chr(124)

add extra lines for other parts of the command.