Dim CellRef As String


Windows("interim2.xls").Activate

CellRef = Sheets("Sheet1").Range("V3").Text

windows("interim2.xls").Activate
Range("BA1:BD1093").Select
Application.CutCopyMode = False
Selection.Copy

Windows(CellRef).Activate
Sheets("Sheet1").Select
Range("BA1:BA1093").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ever time i run this code , the error 9 appears, don't seem to understand whats the problem.

any help would be life saving.

The Paste Target Range: Range("BA1:BA1093").Select

Doesn't match with the Source Range: BA1:BD1093

You are trying to Copy Column Range BA...BD and pasting into Column BA... alone.

It will work if you replace the code for the Target Range as : Range("BA1").Select or Range("BA1:BD1093").Select