Thank you. That worked perfectly!!! Please look at Shelling Out to Dos

"Dave Peterson" wrote:

One way:

Option Explicit
Sub testme()
Do
If IsEmpty(ActiveCell) Then
Exit Do
Else
ActiveCell.Value = "'" & ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
End If
Loop
End Sub



denny wrote:

How can I make a macro that uses <F2<Home<'<Enter
and will repeat itself downward for as long as cells are occupied...from any
column you start it in

--

Dave Peterson