Excel VBA Loop - Error Type mismatch

[countryfan_nt]

Hello friends! Hope all is well!

The below code (first one) is giving me an error (Type Mismatch).

I am basically running a loop; where the code goes from C4:C whatever); and the code will stop when the cells in C are empty (i.e. equals “”).
Please kindly help me and thanks a lot in advance!

Sub pdfit()
    
    Do Until ActiveCell.Value = ""
        
    Sheets("EnterID").Select
    Range("C3").Select
        ActiveCell.Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    
        Selection.Copy
    
    
    Sheets("Results").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.CalculateFull

Call Picture5_Click

    Loop
End Sub

Sub Picture5_Click()
Dim LoginName As String
Dim Name As String

LoginName = UCase(GetUserID)
Name = Sheets("Results").Range("AA14")

' Assemble the filename
     sFileName = "C:\Users\" & LoginName & "\Desktop\" & Name & ".pdf"
 
' Save the File as PDF
    
    Sheets("Results").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sFileName, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

End Sub

 

[MARK858]

I am not getting a type mismatch when running your first code without calling your second sub (btw, you haven't stated which line you get the error on) and I am not going to try it with the second code because I have no idea of your setup.

Having said that, I also can't tell exactly what you are trying to do with the first sub as you don't describe it but my best interpretation at the moment is below.

Is it close?
Does it error as is?
If it doesn't, does it error once you uncomment the Call Picture5_Click code line?

Sub pdfit12()

    Dim c As Range
    
    With Sheets("EnterID")
        .Range("C3").Value = .Range("C3").Value

        For Each c In .Range("C4:C" & .Range("C" & Rows.Count).End(xlUp).Row)
            Sheets("Results").Range("D2").Value = c.Value
            Application.CalculateFull

            'Call Picture5_Click
        Next
    End With
End Sub