Option Explicit
Sub AlphaFill()
Dim rn As Integer
Dim cn As String
cn = Application.InputBox(prompt:="Which column to fill")
rn = Application.InputBox(prompt:="How many lines do you wish to fill?")
Range(cn & "1:" & cn & rn).Formula = "=SUBSTITUTE(ADDRESS(1,ROW(),4),""1"","""")"
End Sub
I have no idea how to use VBA bro - I literally only started learning this stuff starting this year haha!Have you tried my VBA solution?
Is this what you need?
=SUBSTITUTE(ADDRESS(1,COLUMN(INDIRECT(A1&1))+1,4),1,"")