Macro Works One Way But Not Other - Why?

[Alex20850]

The macro is to change all formulas into values:
When I run it, I get the error message if I type as it is in book, that is, with "with ActiveSheet" on same line.
However, if I have it on separate line, it works. Why is that?

Compile Error
Syntax Error with the Dim line highlighted.

Macro with Error:
Sub ChangeToValue()
Dim rng as Range with ActiveSheet
For Each rng In .UsedRange
rng.Value = rng.Value
Next rng
End With
End Sub

Macro without Error:
Sub ChangeToValue()
Dim rng as Range
with ActiveSheet
For Each rng In .UsedRange
rng.Value = rng.Value
Next rng
End With
End Sub

 

[Joe4]

Dim rng as Range
and
with ActiveSheet
are two unrelated, separate commands.
As such, they cannot be placed on the same line.

If that is how it is shown in some book you are looking at, that is a typo. It should be two separate lines.

 

[JoeMo]

The macro is to change all formulas into values:
When I run it, I get the error message if I type as it is in book, that is, with "with ActiveSheet" on same line.
However, if I have it on separate line, it works. Why is that?

Compile Error
Syntax Error with the Dim line highlighted.

Macro with Error:
Sub ChangeToValue()
Dim rng as Range with ActiveSheet
For Each rng In .UsedRange
rng.Value = rng.Value
Next rng
End With
End Sub

Macro without Error:
Sub ChangeToValue()
Dim rng as Range
with ActiveSheet
For Each rng In .UsedRange
rng.Value = rng.Value
Next rng
End With
End Sub

You can't place the With statement on the same line as a Dim statement.