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
Bookmarks