The following code calculate on all sheets in a workbook named _Trial. I want
to do another calculation on other sheets named _Code. How do I add that to
the code.

For other sheets named _Code, I want to add cell g36 to cell g23.

Sub T_Balances()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
If InStr(1, ws.Name, "_Balances") Then
With ws
..Range("g35").Value = .Range("g40").Value
With .Range("g23")
formStr = .Formula
..Formula = formStr & "+" & ws.Range("g36").Value
End With
With .Range("g30")
formStr = .Formula
..Formula = formStr & "+" & ws.Range("g57").Value
End with
End With
End If

Help me in putting this code in one, so that it does calculation on multiple
sheets while putting into consideration different names. Thanks

The following code calculate on all sheets in a workbook named _Balances. I
want to do another calculation on other sheets named _Code. How do I add that
to the code.

For other sheets named _Code, I want to add cell g36 to cell g23.

Sub T_Balances()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
If InStr(1, ws.Name, "_Balances") Then
With ws
..Range("g35").Value = .Range("g40").Value
With .Range("g23")
formStr = .Formula
..Formula = formStr & "+" & ws.Range("g36").Value
End With
With .Range("g30")
formStr = .Formula
..Formula = formStr & "+" & ws.Range("g57").Value
End with
End With
End If

Help me in putting this code in one, so that it does calculation on multiple
sheets while putting into consideration different names. Thanks

"Yossy" wrote:

> The following code calculate on all sheets in a workbook named _Trial. I want
> to do another calculation on other sheets named _Code. How do I add that to
> the code.
>
> For other sheets named _Code, I want to add cell g36 to cell g23.
>
> Sub T_Balances()
> Dim ws As Worksheet
> Application.ScreenUpdating = False
> For Each ws In Worksheets
> If InStr(1, ws.Name, "_Balances") Then
> With ws
> .Range("g35").Value = .Range("g40").Value
> With .Range("g23")
> formStr = .Formula
> .Formula = formStr & "+" & ws.Range("g36").Value
> End With
> With .Range("g30")
> formStr = .Formula
> .Formula = formStr & "+" & ws.Range("g57").Value
> End with
> End With
> End If
>
> Help me in putting this code in one, so that it does calculation on multiple
> sheets while putting into consideration different names. Thanks