My company is upgrading to Office 365 and one of my excel databases that is loaded with macros is not functioning properly. The section in Red is where I am getting the error.
I am getting Run-time error '1004':
The extract range has a missing or invalid filed name
This macro works great in the older version. Any help? I can include database if that would be helpful.
Sub MultiplePage3Creation()
Dim rws As Long, i As Long
rws = Application.InputBox("Enter last Row Number to which you have Data (Number in Column O).", "COPY TO ROW NUMBER", Type:=1)
If rws = vbCancel Then Exit Sub
For i = 4 To rws
Sheets("Library").Range("P" & i).Copy
Sheets("PLANTALL").Range("BV2").PasteSpecial Paste:=xlPasteValues
Sheets("Library").Range("Q" & i).Copy
Sheets("PLANTALL").Range("BW2").PasteSpecial Paste:=xlPasteValues
Sheets("Library").Range("R" & i).Copy
Sheets("PLANTALL").Range("CB2").PasteSpecial Paste:=xlPasteValues
Sheets("Library").Range("S" & i).Copy
Sheets("PLANTALL").Range("BZ2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1:BR100000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("BU1:EM2"), CopyToRange:=Range("BU22:EM22"), Unique:=False
Sheets("Sample Summary").Select
Dim strDataRange As Range
Dim keyRange As Range
Set strDataRange = Range("A16:O68")
Set keyRange = Range("O16")
strDataRange.Sort Key1:=keyRange, Order1:=xlDescending
Range("A1:O69").Select
Selection.Copy
Sheets("Sheet1").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Next
End Sub
Bookmarks