VBA to give static output of LEFT function

[mcp21x]

What I would like to do is output the first 4 characters of a cell into another cell. eg Cell A1 has "1234 Sydney".

If I just use the manual formula "=left(A1,4)" it would give me the correct output "1234" in say cell B2, but as a formula.

As I need to automate this in a macro, how could you code this in VBA to output the String "1234" into cell B2(ie the actual output rather than a formula)?

[antoka05]

You can use this code:

Range("b2") = Left (Range("a1"),4)

Regards,
Antonio

[sweep]

Hi,

Like this:-

Range("B1").Value = Left(Range("A1").Value, 4)