I'm new in Excel having recently moved from another spreadsheet brand that
didn't require the "=" preceding a formula so I'm constantly running into the
problem of having to go back and insert the "=" in each formula cell. To do
this, I came up with:

Sub Equation()

With Selection
.FormulaR1C1 = "=" & .FormulaR1C1
End With

End Sub

.... which works perfectly as long as only one cell is selected. If I select
a range of cells I get the error message:

Run-time error '13':
Type mismatch

What to do?

How about looping.

Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng.Cells
cell.FormulaR1C1 = "=" & cell.Value
Next

--
Tim Zych
www.higherdata.com
Compare data in worksheets and find differences with Workbook Compare
A free, powerful, flexible Excel utility


"Bob Arnett" <(E-Mail Removed)> wrote in message
news:0438F1F2-1328-4DE0-86BD-(E-Mail Removed)...
> I'm new in Excel having recently moved from another spreadsheet brand that
> didn't require the "=" preceding a formula so I'm constantly running into
> the
> problem of having to go back and insert the "=" in each formula cell. To
> do
> this, I came up with:
>
> Sub Equation()
>
> With Selection
> .FormulaR1C1 = "=" & .FormulaR1C1
> End With
>
> End Sub
>
> ... which works perfectly as long as only one cell is selected. If I
> select
> a range of cells I get the error message:
>
> Run-time error '13':
> Type mismatch
>
> What to do?

You will want to iterate through the cells in the Selection...

Dim R As Range
For Each R In Selection
R.FormulaR1C1 = "=" & R.FormulaR1C1
Next

Rick


"Tim Zych" <tzych@NOSp@mE@RTHLINKDOTNET> wrote in message
news:(E-Mail Removed)...
> How about looping.
>
> Dim rng As Range, cell As Range
> Set rng = Selection
> For Each cell In rng.Cells
> cell.FormulaR1C1 = "=" & cell.Value
> Next
>
> --
> Tim Zych
> www.higherdata.com
> Compare data in worksheets and find differences with Workbook Compare
> A free, powerful, flexible Excel utility
>
>
> "Bob Arnett" <(E-Mail Removed)> wrote in message
> news:0438F1F2-1328-4DE0-86BD-(E-Mail Removed)...
>> I'm new in Excel having recently moved from another spreadsheet brand
>> that
>> didn't require the "=" preceding a formula so I'm constantly running into
>> the
>> problem of having to go back and insert the "=" in each formula cell. To
>> do
>> this, I came up with:
>>
>> Sub Equation()
>>
>> With Selection
>> .FormulaR1C1 = "=" & .FormulaR1C1
>> End With
>>
>> End Sub
>>
>> ... which works perfectly as long as only one cell is selected. If I
>> select
>> a range of cells I get the error message:
>>
>> Run-time error '13':
>> Type mismatch
>>
>> What to do?
>
>

Sorry... I accidentally sent this post when I actually meant to cancel it.

Rick


"Rick Rothstein (MVP - VB)" <(E-Mail Removed)> wrote in
message news:(E-Mail Removed)...
> You will want to iterate through the cells in the Selection...
>
> Dim R As Range
> For Each R In Selection
> R.FormulaR1C1 = "=" & R.FormulaR1C1
> Next
>
> Rick
>
>
> "Tim Zych" <tzych@NOSp@mE@RTHLINKDOTNET> wrote in message
> news:(E-Mail Removed)...
>> How about looping.
>>
>> Dim rng As Range, cell As Range
>> Set rng = Selection
>> For Each cell In rng.Cells
>> cell.FormulaR1C1 = "=" & cell.Value
>> Next
>>
>> --
>> Tim Zych
>> www.higherdata.com
>> Compare data in worksheets and find differences with Workbook Compare
>> A free, powerful, flexible Excel utility
>>
>>
>> "Bob Arnett" <(E-Mail Removed)> wrote in message
>> news:0438F1F2-1328-4DE0-86BD-(E-Mail Removed)...
>>> I'm new in Excel having recently moved from another spreadsheet brand
>>> that
>>> didn't require the "=" preceding a formula so I'm constantly running
>>> into the
>>> problem of having to go back and insert the "=" in each formula cell. To
>>> do
>>> this, I came up with:
>>>
>>> Sub Equation()
>>>
>>> With Selection
>>> .FormulaR1C1 = "=" & .FormulaR1C1
>>> End With
>>>
>>> End Sub
>>>
>>> ... which works perfectly as long as only one cell is selected. If I
>>> select
>>> a range of cells I get the error message:
>>>
>>> Run-time error '13':
>>> Type mismatch
>>>
>>> What to do?
>>
>>
>

Cool! Worked perfectly. I'll get the hang of this yet.

"Tim Zych" wrote:

> How about looping.
>
> Dim rng As Range, cell As Range
> Set rng = Selection
> For Each cell In rng.Cells
> cell.FormulaR1C1 = "=" & cell.Value
> Next
>
> --
> Tim Zych
> www.higherdata.com
> Compare data in worksheets and find differences with Workbook Compare
> A free, powerful, flexible Excel utility
>
>
> "Bob Arnett" <(E-Mail Removed)> wrote in message
> news:0438F1F2-1328-4DE0-86BD-(E-Mail Removed)...
> > I'm new in Excel having recently moved from another spreadsheet brand that
> > didn't require the "=" preceding a formula so I'm constantly running into
> > the
> > problem of having to go back and insert the "=" in each formula cell. To
> > do
> > this, I came up with:
> >
> > Sub Equation()
> >
> > With Selection
> > .FormulaR1C1 = "=" & .FormulaR1C1
> > End With
> >
> > End Sub
> >
> > ... which works perfectly as long as only one cell is selected. If I
> > select
> > a range of cells I get the error message:
> >
> > Run-time error '13':
> > Type mismatch
> >
> > What to do?
>
>
>