range calculate

[pls123]

hi all !!! does anybody know how can I place a -range.calculate- inside a
sub like that starts like the next one ?? .. i tryed but didn't work.. TY

Dim aWB As Workbook
Dim aWS As Worksheet

Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

 

[Per Jessen]

Hi

You don't say exactly what you want to calculate, but this is working:

Sub test()
Dim aWB As Workbook
Dim aWS As Worksheet


Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")


myResult = WorksheetFunction.Sum(aWS.Range("B2:B7"))
aWS.Range("A1") = myResult
End Sub

If this don't help, you need to give us more information about what
you want to do.

Regards,
Per

 

[Gary''s Student]

Sub luxation()
Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")
Set r = aWS.Range("A1")
r.Calculate
End Sub

 

[pls123]

im very sorry i need a manual calculation cycle:


Range("A1:B5").Calculate
ty

 

[pls123]

or a
Worksheets(“SheetNameâ€).Calculate ...

 

[Per Jessen]

Sub test()
Dim aWB As Workbook
Dim aWS As Worksheet


Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

aWS.Range("A1:B5").Calculate
End Sub

Regards,
Per