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

On 17 Jan., 01:45, pls123 wrote:
im very sorry i need a manual calculation cycle:

Range("A1:B5").Calculate
ty



"pls123" wrote:
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")- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -