convert an instruction in vba

Hello i have try to convert this instruction
=IF(ISNUMBER(FIND("\",F1)),MID(F1,1,(FIND("\",F1)-1)),F1)

in vba ...
I want to format a sheet that contain ""\""and evrything after
this command work fine for me but i want to use it in a vba sub() that i will create

but so far ... i had no chance
can someone help me or give me some clue how i can do that

thank you
have a great day

Hi,

Something along these lines ...

Please Login or Register  to view this content.

HTH
Carim

i will try that tomorrow ....run out of time at work .....i will keep you in touch

thank's again

i think vba don't like the "" after in equation ????

when i try to run the sub ()
it stop on this instruction
i = InStr(1, ActiveCell.Offset(0, -1).Value, "\")

pop windows :
application defined or object-defined error

and when i bring the cursor on this instruction it say's
i = InStr(1, ActiveCell.Offset(0, -1).Value=<application defined or object-defined error>

so again my limited acknowledge stop me here !!.

so i'm in the obligation to ask you again ....help me please

thank you

Hi,

As you asked for a replicate ...
Macro needs an input in cell F1 in order to produce result in cell G1 ...

HTH
Carim

I told you that my skill was limited .....with your last reply you have light up my .....head


now it's work

thank you

i might have another question i will make a new post

thank's again

Glad your problem is fixed.

Thanks for the feedback

Carim