Hello,

I have a file where the cell I want to select changes e.g. sometimes its F or E or G etc but the row always stays the same. The column to select is always refereced in another sheet in the same cell. I was trying to use replace but I am failing miserably. I then want to have "1" entered select the cell to the right and have that as +1 and then auto fill to the end.

Basically I need to number the columns to use for Vlookups.

If someone could help it would be amazing..

Thanks


Sub numbering()
Sheets("Allocation").Select
Replace (Range("F3"), "F", Sheets("Index").Range("W59").Select)
ActiveCell.FormulaR1C1 = "=1"
ActiveCell.Offset(, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
ActiveCell.Select
Selection.AutoFill Destination:=Range("ActiveCell:CU3"), Type:=xlFillDefault
End Sub