Try something like

Dim Pos As Long
Pos = InStr(Range("A1").Text, ".com")
If Pos = 0 Then
Exit Sub
End If
Range("A1").Value = Left(Range("A1").Text, Pos + 3)



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Shani" wrote in message
oups.com...
I need to delete information in cell

for example if A2= http://google.com/help/you/me

I want to remove everything after "com"

So i would want A2 = http://google.com