I improved upon this because it doesnt account for the last column
being AG (as opposed to Z). So here you go:

lastcolumnname = ActiveSheet.UsedRange.Columns.Address
startofcolumnname = WorksheetFunction.Search(":", lastcolumnname, 4) +
2
endofcolumname = WorksheetFunction.Search("$", lastcolumnname,
startofcolumnname) - 1
lastcolumn = Mid(lastcolumnname, startofcolumnname, endofcolumname + 1
- startofcolumnname)