For 400 successive and contiguous ranges of two columns (from line 2 to 26), I need to make 400 different changes. All ranges contain "$3" within strings in many of the cell, part that needs to be replaced by "$x" and where x increases by 1 unit after each find and replace iteration ("each jump to the next two columns to the right, each ranges are 2 column wide). 

This is the first time I use VBA have looked in many place within and outside stackoverflow and tried different routines all day. The routine below has a bug with Active Sheet and Replace functions. Thank you for your help.

```
 Dim lCount, lCol, lRepl As Integer
 Dim fFind, dOllar, cOntentRpl As String
 Dim RangeforRepl As Range

 lCol = 0
 lRepl = 4
 fFind = "$3"
 dOllar = "$"

 For lCount = 1 To 400 Step 1

    lCol = lCol + 2            'jump of two columns each time
    lRepl = lRepl + 1            'adjust variable element of replacement value

    cOntentRpl = “dOllar” & “lRepl”  'replacement value, starts with "$5"

      RangeforRepl = ActiveSheet.Range(cells(2, 2),cells(26.3).
      Offset(0, "lCol").Select      ' Select range where find & replace should take place

      Worksheets("Sheet1").RangeforRepl.Replace _ 
      What:="fFind", Replacement:="cOntentRpl", _ 
      LookAt:=2                                   'find and replace

 Next lCount

```

Cheers