Type Mismatch Error

[ss6857]

I have some code and I thought it was pretty basic code but it's giving me a type mismatch error on the very last line. Any suggestions?

Sub Email()
    Dim LR As Long
    Dim ws As Worksheet
    Dim vFilePath As String
    Dim CurrentFile As String
    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim EmailTo As String
    Dim EmailCC As String
    Dim EmailSub As String
    Dim EmailBody As String
    
    vFilePath = Range("rFilePath").Value
        
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Master" And ws.Name <> "Check" And ws.Name <> "Data" And ws.Name <> "Template" _
        And ws.Name <> "Library" And ws.Name <> "Total EQL Scorecard" And ws.Name <> "EQL Com Scorecard" _
        And ws.Name <> "Control" Then
        
        CurrentFile = vFilePath & ws.Range("A7") & ".xlsx"
            ws.Copy
            ThisWorkbook.Sheets("Master").Copy after:=ActiveSheet
            ActiveWorkbook.SaveAs Filename:=CurrentFile, _
            FileFormat:=xlOpenXMLWorkbook
            
 ThisWorkbook.Activate
 
 For LR = ThisWorkbook.Sheets("Library").Range("B2").End(xlUp) To 2 Step -1

 

[shg]

May we know what line gives the error?

EDIT:

For LR = ThisWorkbook.Sheets("Library").Range("B2").End(xlUp)[COLOR=red].Row[/COLOR] To 2 Step -1

However, you can't go very far up from row 2, so probably

For LR = ThisWorkbook.Sheets("Library").[COLOR=red]Cells(Rows.Count, "B").End(xlUp).Row[/COLOR] To 2 Step -1

 

[ss6857]

Yeah the last line.

For LR = ThisWorkbook.Sheets("Library").Range("B2").End(xlUp) To 2 Step -1

 

[Norie]

Try adding Row.

Oh, and it might be an idea to start in the last row not the 2nd row.

For I = ThisWorkbook.Sheets("Library").Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1

 

[ss6857]

Thank you. It atleast allows it to happen now, haha. i made it (xlDown) instead up (xlUp).

Does this bring back the number of rows? Such as, there are 25 rows. or does it goes through each row one at a time?

 

[shg]

xlDown is equivalent to selecting the cell and doing Ctrl+Down

 

[Dryver14]

(Xldown)??????? why did you change it?

 

[Norie]

You need to be careful in using xlDown/xlUp.

If you use xlDown you could find yourself looping through every row, regardless of whether or not they have data.

 

[ss6857]

okay. thank you shg and norie for your help!