Alternate solution or Edit in the VBA required

Hey all. Hope all is good.


First of all, thanks for your time in reading this request.


I am new to VBA and I don't know whether the below written code is properly used or not.


Below is the VBA code which I have written for applying Vlookup to certain columns. And Its working fine.


Sub Macro1()
'
' Macro1 Macro
'

'
ActiveCell.Offset(0, 1) = "=VLOOKUP(RC[-1],Database.xlsx!R1C1:R300C24,6,0)"
ActiveCell.Offset(0, 4) = "=VLOOKUP(RC[-4],Database.xlsx!R1C1:R300C24,12,0)"
..............continues for few more columns with row number / row cell being fixed.
End Sub


But to run this code properly, everytime I need to select the correct cell from where offset has to be done in each and every workbook as I have used "ActiveCell" option.


Can anyone tune the above code or suggest any other alternate method where I can apply this formula by fixing the cell .


Example:
Consider A5 has some code.
So, Lookup value will be "$A5" and Column_index_num will be varying everytime (i.e Column_index_num will be $A6, $A7, $A10 and so on).

Thank you all in advance for your suggestions.

A very quick solution would be to make the code select the correct cell before it uses ActiveCell. This will avoid you having to re-write the code.

e.g. if you always need to select cell A5 then put at the top:

Please Login or Register  to view this content.

or shorthand (but no intellisense)

Please Login or Register  to view this content.

.Select changes your cursor to that cell and activates it. It will then be your ActiveCell even if you ran the macro from a different cell.

Hi Stormin,

Thanks for your time and the solution.
But I am really sorry to bother you now.
Can you kindly show me on how do I use that option Range("A5").Select with the above code that I have mentioned ?

Hi Bernie Deitrick,

Its working as per my requirement!!!!!! Thanks for the solution.

Thank you. Thanks a lot!!!!!!