03 to 07 function update

M

Martin Wheer

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
 
P

Patrick Molloy

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
 
M

Martin Wheer

Hi,
Thanks for the help.
Ta,
Martin

Patrick Molloy said:
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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ammend to exlude sheet(s) 2
Filtering Worksheets by Same Criteria - Object variable or with blockvariable not set 5
PasteSpecial not happening 3
Array help 5
Moving from Excel 03 to 07, need help with customizing 1
Dave Peterson Numbering Worksheets 2
Exporting multiple tabs as .CSV files with the tab name being the folder and filename 0
Excel 07 vs. 03 "listrows" reference <subscript out of range> 2

Top