Got a "Mid" problem

[NickMinUK]

Hi. I am trying to copy a value to a ref contained within another cell.
BF3 is where the formula is to copy
BJ1 contains the cell ref of "H6"
BI10 is the next cell to select

I think the problem is activecell = Mid(BJ1,1,5) which is the cell to which i want to paste the value. BJ1 contains the ref in text format of "H6" I am therefore trying to copy the value in BF3 to H6

Any idea what I am doing wrong?? Thanks in anticipation

Sub Macro2()

Macro2 Macro

    Range("BF3").Select
    Selection.Copy
    ActiveCell = Mid(BJ1, 1, 5)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BI10").Select
End Sub