how to get a macro to work with any work book name

i have a made a macro that copies info to a new sheet now that is working great but if i change the name of the work book it wont work any more so i need the macro to work with what ever name i give the workbook

the current name is
AVERAGE PRICE (update 2009) Mimmos Armico 170809.xls

i have attached the code in note pad

thank you
wade

Which workbook contains the code, and which one is active when you start running the code?

both work books are the same. one is a copy of the other but with a different name

AVERAGE PRICE (update 2009) Mimmos Armico 170809.xls is the work book i am copying from and AVERAGE PRICE (update 2009) Mimmos Armico CLEAN.xls is the one i am copying to

the first ones name will change week to week the second one will be come the new weeks book and the 1st one will be archived as a report

so for you to understand
AVERAGE PRICE (update 2009) Mimmos Armico 170809.xls
will open a work book called AVERAGE PRICE (update 2009) Mimmos Armico CLEAN.xls and then copy values to it .i will then SAVE AS AVERAGE PRICE (update 2009) Mimmos Armico 240809.xls for the next week

and then do the same again but this time the fist one would be
AVERAGE PRICE (update 2009) Mimmos Armico 240809.xls

and so on

so in the code it needs to use the current work book name that i run the macro from .
thank you i hope this helps

That doesn't actually answer the question about which is active at the start, but my best guess is you want something like this (I removed a lot of unnecessary code):

Sub moveopening()
'
' moveopening Macro
'

'
   Dim wbkClean As Workbook, wbkThis As Workbook
   Dim wksBulk As Worksheet, wksWorkout As Worksheet
   
   Set wbkThis = ThisWorkbook
   Set wbkClean = Workbooks("AVERAGE PRICE (update 2009) Mimmos Armico CLEAN.xls")
   
   Set wksBulk = wbkClean.Sheets("BULK SHEETS")
   Set wksWorkout = wbkThis.Sheets("VAR WORKOUT")
   
   openbook
   
   wksWorkout.Range("H3:H51").Copy
   wksBulk.Range("G6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H52:H99").Copy
   wksBulk.Range("G60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H100:H147").Copy
   wksBulk.Range("G113").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H148:H195").Copy
   wksBulk.Range("G166").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H196:H243").Copy
   wksBulk.Range("G219").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H244:H291").Copy
   wksBulk.Range("G272").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H292:H339").Copy
   wksBulk.Range("G325").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H340:H388").Copy
   wksBulk.Range("BJ6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H389:H436").Copy
   wksBulk.Range("BJ60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H437:H484").Copy
   wksBulk.Range("BJ113").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H485:H532").Copy
   wksBulk.Range("BJ166").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H533:H580").Copy
   wksBulk.Range("BJ219").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H581:H628").Copy
   wksBulk.Range("BJ272").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H629:H676").Copy
   With wksBulk
      .Range("BJ325").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
      With .Columns("BJ:BJ")
         .Locked = True
         .FormulaHidden = False
      End With
      With .Columns("G:G")
         .Locked = True
         .FormulaHidden = False
      End With
      .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
   End With
End Sub

Set wbkClean = Workbooks("AVERAGE PRICE (update 2009) Mimmos Armico CLEAN.xls")

is giving me a runtime erroe
script out of range

Oops - I should have guessed what the 'openbook' macro does! Need to change the order a bit:

Sub moveopening()
'
' moveopening Macro
'

'
   Dim wbkClean As Workbook, wbkThis As Workbook
   Dim wksBulk As Worksheet, wksWorkout As Worksheet
   
   Set wbkThis = ThisWorkbook

   openbook

   Set wbkClean = Workbooks("AVERAGE PRICE (update 2009) Mimmos Armico CLEAN.xls")
   
   Set wksBulk = wbkClean.Sheets("BULK SHEETS")
   Set wksWorkout = wbkThis.Sheets("VAR WORKOUT")
   
   wksWorkout.Range("H3:H51").Copy
   wksBulk.Range("G6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H52:H99").Copy
   wksBulk.Range("G60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H100:H147").Copy
   wksBulk.Range("G113").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H148:H195").Copy
   wksBulk.Range("G166").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H196:H243").Copy
   wksBulk.Range("G219").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H244:H291").Copy
   wksBulk.Range("G272").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H292:H339").Copy
   wksBulk.Range("G325").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H340:H388").Copy
   wksBulk.Range("BJ6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H389:H436").Copy
   wksBulk.Range("BJ60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H437:H484").Copy
   wksBulk.Range("BJ113").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H485:H532").Copy
   wksBulk.Range("BJ166").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H533:H580").Copy
   wksBulk.Range("BJ219").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H581:H628").Copy
   wksBulk.Range("BJ272").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
   SkipBlanks:=False, Transpose:=False
   wksWorkout.Range("H629:H676").Copy
   With wksBulk
      .Range("BJ325").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
      With .Columns("BJ:BJ")
         .Locked = True
         .FormulaHidden = False
      End With
      With .Columns("G:G")
         .Locked = True
         .FormulaHidden = False
      End With
      .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
   End With
End Sub

MAN ALIVE

I COULD KISS YOU

THANK YOU SO MUCH
YOU HAVE HELPED ME FINALIZE 5 MONTHS OF WORK

thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you

the work book that is active first is AVERAGE PRICE (update 2009) Mimmos Armico 170809.xls

You're welcome welcome welcome etc.