Good morning Ladies and Gentlemen,

I have a little macro, it takes data from one sheet (SHEET_IMPORT_ORACLE), pastes it to another (SHEET_PROJECT_LEADERS), sorts the data then makes a list of unique values in Column D of this list. It all works great, except when I try and hide column A, then it drops out with:

Run time error '1004':

The extract range has a missing or illegal filename.
When debug is selected the last paragraph of code is highlighted. Any ideas?

And if you'd like to make my code any prettier I'd appreciate it too!


Sub test()
TEST1 = "S7"
'Select and Copy data
Sheets(SHEET_PROJECT_LEADERS).Select
Range("A7:A3000").ClearContents
Sheets(SHEET_IMPORT_ORACLE).Select
Cells(7, 19).Select
innoof_rows = ActiveCell.CurrentRegion.Rows.Count + 5
Range(TEST1).Select
srange = TEST1 & ":" & Left(TEST1, 1) & innoof_rows
Range(srange).Select
Selection.Copy

'Paste data to Project Leaders sheet
Sheets(SHEET_PROJECT_LEADERS).Select
Cells(7, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

'Sort the data
Cells(7, 1).Select
scurrent_rng = ActiveCell.CurrentRegion.Address
Range(scurrent_rng).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1

Cells(1, 1) = innoof_rows
Cells(1, 2) = scurrent_rng
ccurrent_rng = "A7:A3000"

Worksheets(SHEET_PROJECT_LEADERS).Range(scurrent_rng).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("D6"), _
Unique:=True

End Sub