Alfabetisk løkke

Jeg skal have lavet en løkke hvor jeg går igennem kolonner frem for rækker.

Det vil sige den skal kunne gå igennnem A-Z, derefter AA - AZ og så videre...

Jeg ved ikke på forhånd hvor langt til "højre" i kolonner jeg skal, så derfor skal den kunne gå helt ud i enden af mit ark.

Indtil videre har jeg denne løkke, men der fejler den efter Z:

Sub Forecast()
    Dim Taeller As Single
    Dim Forecast As Integer
    Dim Stock As Integer
    Dim StockRest As Integer
   
    Stock = Range("B47").Value
    StockRest = Stock
   
    While Range(Chr(Taeller + 66) & "46").Value <= StockRest
    Forecast = Forecast + Range(Chr(Taeller + 66) & "46").Value
    StockRest = StockRest - Range(Chr(Taeller + 66) & "46").Value
    Taeller = Taeller + 1
    Wend
   
    Range("B48").Value = Taeller
End Sub