Left Function

[VBABEGINER]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ColBT
End Sub

Public Function ColBT() '(rng As Range) As Double
Dim i
For i = 13 To Range("BT13").End(xlDown).Row
Cells(i, "F") = Left(Cells, Len(Cells) - 3) & Cells(i, "BT")
Next
End Function

I want to use Left function On Col BT and then i copy this value to COl F.
Problem is unble to use Left function.
Any one correct my code, pls tell me what i did mistke?

 

[VBABEGINER]

Sir,

this "InStr" for what purpose you are using.
pls explian.

 

[VoG]

It finds the position of the space in "123 km".

 

[VBABEGINER]

Vog Sir,

Its Brilliant...to understand others problem

God Bless You all, Mr Excel.