execute formula
 

Hi,

Wy doesn't this sub works? I get "VÄRDEFEL!" (faild value) in Swedish
The formula works in excel after F2 and Enter

Sub Sum()

myCol = "F"
myFirstCell = myCol & "7"
myLastCell = myCol & "24"
myArea = myFirstCell & ":" & myLastCell
mySumCell = myCol & "27"
Range(mySumCell).Activate
txt = "=SUM(" & myArea & ")"
ActiveCell.Formula = txt
ActiveCell.Calculate

End Sub
--
If you are old enough, you have your future behind you.

execute formula
 

I copied and pasted your code, it works fine, where did you place the code
and what data do you have in F7:F24?
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"KentAE" wrote:

Hi,

Wy doesn't this sub works? I get "VÄRDEFEL!" (faild value) in Swedish
The formula works in excel after F2 and Enter

Sub Sum()

myCol = "F"
myFirstCell = myCol & "7"
myLastCell = myCol & "24"
myArea = myFirstCell & ":" & myLastCell
mySumCell = myCol & "27"
Range(mySumCell).Activate
txt = "=SUM(" & myArea & ")"
ActiveCell.Formula = txt
ActiveCell.Calculate

End Sub
--
If you are old enough, you have your future behind you.

execute formula
 

On Nov 5, 9:41 am, KentAE wrote:
Hi,

Wy doesn't this sub works? I get "VÄRDEFEL!" (faild value) in Swedish
The formula works in excel after F2 and Enter

Sub Sum()

myCol = "F"
myFirstCell = myCol & "7"
myLastCell = myCol & "24"
myArea = myFirstCell & ":" & myLastCell
mySumCell = myCol & "27"
Range(mySumCell).Activate
txt = "=SUM(" & myArea & ")"
ActiveCell.Formula = txt
ActiveCell.Calculate

End Sub
--
If you are old enough, you have your future behind you.

This works fine in Excel 2000 (9.0.6926 SP-3)
Cell F27 ends up =SUM(F7:F24)

Try building the formula by hand in cell F27, or stepping through your
function in the visual basic debugger. There may be some variance
from your version of Excel to mine.

Brian Herbert Withun