03 to 07 function update
 

Below is the code I am using in 2003 vba. It does not work in 2007.

Dim wks As Worksheet
If Left(wks.Name, 1) = "R" Then - 07 does not like Left

end if

I tried finding the correct function on 2007 but got no where with it. Any
help would be greatly appreciated.
Ta,
Martin

03 to 07 function update
 

try ...
If VBA.Strings.Left(wks.Name, 1) = "R" Then
regards
r


Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/...ternative.html


"Martin Wheer" wrote:

Below is the code I am using in 2003 vba. It does not work in 2007.

Dim wks As Worksheet
If Left(wks.Name, 1) = "R" Then - 07 does not like Left

end if

I tried finding the correct function on 2007 but got no where with it. Any
help would be greatly appreciated.
Ta,
Martin

03 to 07 function update
 

as given, the wks object hasn't been set to a worksheet

if you add for example
Set wks = ActiveSheet
it works fine:

Dim wks As Worksheet
Set wks = ActiveSheet
If Left(wks.Name, 1) = "R" Then
'do something
End If


"Martin Wheer" wrote in message
...
Below is the code I am using in 2003 vba. It does not work in 2007.

Dim wks As Worksheet
If Left(wks.Name, 1) = "R" Then - 07 does not like Left

end if

I tried finding the correct function on 2007 but got no where with it.
Any help would be greatly appreciated.
Ta,
Martin