Originally Posted by
Klartigue
Simon, i tried this..
[vba] Sub Month_To_Cell()
Dim rng As Range, MyCell As Range
Set rng = Sheets("Sheet1").Range("E2:E" & Sheets("Sheet1").Range("E" & Rows.Count).End(xlUp).Row)
For Each MyCell In rng
MyCell.Offset(0, 1).Formula = "=Text(" & MyCell.Address & "," & Chr(34) & "mmmm" & Chr(34) & ")"
Next MyCell
End Sub[/vba]
but for this line the error is subscript out of range.
Set rng = Sheets("Sheet1").Range("E2:E" & Sheets("Sheet1").Range("E" & Rows.Count).End(xlUp).Row)
If it helps, the sheet i am working with is Volume.xlsx