Hello,

I have a script that until this morning worked fine but now I am getting a "Script out of Range" Error. I have bolded the line that is causing problems. Anyone have any idea's why this is suddenly an issue?

Sub Get_LC()
    
Dim strLC_Report As String
Dim lr As Integer
    
'Navigate to, and open, current Treasury LC to get current outstanding Letters of Credit:
    strLC_Report = Application.GetOpenFilename
    Workbooks.Open strLC_Report
    strLC_Report = ActiveWorkbook.Name

'Import LC data to PCG file
    Worksheets("LC Schedule").Activate
    
    lr = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    ActiveSheet.Range("A2:T" & lr).Select
    Selection.Copy
    ThisWorkbook.Activate
    ActiveWorkbook.Worksheets("LC Input").Activate
    ActiveSheet.Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    
    
'Close LC Report
    Workbooks(strLC_Report).Activate
    ActiveWorkbook.Close
    ThisWorkbook.Activate
    Worksheets("Controls & Inputs").Activate
    Range("rSource_LC_File").Value = strLC_Report

End Sub