strange With code

[dennisli]

Good afternoon,
I got this code from someone else. Is this a typical VBA code? If then, what does this code mean?
Thanks.

    With ActiveCell
      EnterCol 1, "Policy", "Number", "=LossIn!E2", xlCenter, "", 12
    End With

 

[Norie]

The With isn't doing anything so I don't see why it's there but it's not really doing any harm.

Perhaps just something left over from earlier code?

The rest of the code seems fine - it's calling a sub/function with all those arguments.

 

[Jonmo1]

Yes and No

It's very common to use With..
But it's not used correctly in that example.
The With is completely useless in that example.


When you use With, you are referring to some object.
Usually a range like ("A1:A10") or a Sheet or Book.
Then in subsequent code (before the End With), you refer to that object with a period.

Like

With Range("A1:A10")
    .Interior.ColorIndex = 3
    .Font.Bold = True
End With

It's usefull when you need to make multiple commands on the same object.
Makes it easier, you don't have to rewrite the same object over and over again.


But your example does not use the period in to refer to the object referenced (ActiveCell)


Hope that helps.

 

[dennisli]

Thank you both, I would take it try.

 

[Norie]

The sub being called within the code might actually be a replacement for a long series of statements that were used before.