Consolidating data on a single sheet...

[Charmwah]

Hi all

I have the following code, which I want to make transferable to other worksheets. Whilst it works perfectly for the worksheet its already in, it'll fail as soon as I try to run the macro in another workbook, because of the filepath. How do I re-write the code to omit the filepath and ensure it works in whichever sheet its run in?

If it helps, the first column are customer names, all the other columns contain figures (integers).

Sub Consolidate()
'
' Consolidate Macro
'


'
    Columns("D:N").Select
    Selection.EntireColumn.Hidden = True
    Range("P1").Select
    Selection.Consolidate Sources:= _
        "'C:\Users\THISUSER\Documents\Tools\[MYWORKBOOK.xlsm]Pivot2'!R1C4:R250C14" _
        , Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    Worksheets("Pivot2").Columns("P:Z").AutoFit
End Sub

Thanks in advance!