Loop mellem rækker og kolonner

Hej

Jeg vil høre, om I kan hjælpe mig med en kodestump, så jeg kan lave Søg og erstat (fra komma til punktum) i x antal rækker og y antal kolonner?

Jeg har denne kode lige nu:

-------------

Sub Import()

Worksheets("2811").Activate

Selection.NumberFormat = "@"

Dim OriginalText As String
Dim CorrectedText As String

LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

    For i = 1 To LastRow

    OriginalText = Worksheets("2811").Cells(i, 1).Value

    CorrectedText = Replace(OriginalText, ",", ".")

    Worksheets("2811").Cells(i, 1).Value = CorrectedText

    Next i

End Sub

-------------

Søg og erstat faciliteten fungerer fint nok, og koden passer også til det variable antal rækker, der er i kolonne A. Men jeg kan ikke få koden til derefter at springe til kolonne B (og dernæst C etc.) og dér løbe rækkerne igennem, indtil der ikke er flere rækker og kolonner at skulle gennemløbe.

Kan I hjælpe mig med den kode, der skal til for at springe til næste kolonne, når gennemløbet i første kolonne er tilendebragt mht. Søg og erstat?

På forhånd mange tak for jeres hjælp.