Macro to insert symbol problem

G

Graham Daniels

Hi,

I wish to record a macro to insert a symbol ( a tick) into the active cell
and then move down to the next cell in that column. However, when I try to
to do this the symbol gets inserted OK but the cursor won't move down to the
next cell and it keeps jumping bak up to the original cell. I have tried
using the relative to cell option on the recording toolbar but no joy.
Using Excel 2002 SP2


Any thoughts appreciated,

Graham
 
B

Bob Phillips

Hi Graham,

This does what you want

Sub Macro1()
With Range("A1")
.Font.Name = "Marlett"
.FormulaR1C1 = "a"
.Offset(1, 0).Select
End With
End Sub

You can make it work on the activecell with

Sub Macro1()
With Activecell
.Font.Name = "Marlett"
.FormulaR1C1 = "a"
.Offset(1, 0).Select
End With
End Sub
 
Top