| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code error
I can't understand what i am doing wrong with this code. Obviously the
first part of the code is for all sheets named "cardata" & integer. After this first part I want to select "a1" in these sheets to run the code that follows. However my line starting Range causes an error. Dim ws As worksheet For Each ws In ActiveWorkbook.Worksheets If UCase(Left(ws.Name, 7)) = "CARDATA" Then If IsNumeric(Right(ws.Name, Len(ws.Name) - 7)) Then Range("a1").Select I would appreciate help but also an explanationa s to why I can't start this line of code with Range. Thanks. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code error
Keri,
Try activating the worksheet before performing the Select. If IsNumeric(Right(ws.Name, Len(ws.Name) - 7)) Then ws.Activate ws.Range("A1").Select End If Regards, Mark "keri" wrote in message ups.com... I can't understand what i am doing wrong with this code. Obviously the first part of the code is for all sheets named "cardata" & integer. After this first part I want to select "a1" in these sheets to run the code that follows. However my line starting Range causes an error. Dim ws As worksheet For Each ws In ActiveWorkbook.Worksheets If UCase(Left(ws.Name, 7)) = "CARDATA" Then If IsNumeric(Right(ws.Name, Len(ws.Name) - 7)) Then Range("a1").Select I would appreciate help but also an explanationa s to why I can't start this line of code with Range. Thanks. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code error
Qualify EVERYTHING
Dim ws As worksheet For Each ws In ActiveWorkbook.Worksheets If UCase(Left(ws.Name, 7)) = "CARDATA" Then If IsNumeric(Right(ws.Name, Len(ws.Name) - 7)) Then ws.Range("a1").Select '<==================== -- --- HTH Bob (change the xxxx to gmail if mailing direct) "keri" wrote in message ups.com... I can't understand what i am doing wrong with this code. Obviously the first part of the code is for all sheets named "cardata" & integer. After this first part I want to select "a1" in these sheets to run the code that follows. However my line starting Range causes an error. Dim ws As worksheet For Each ws In ActiveWorkbook.Worksheets If UCase(Left(ws.Name, 7)) = "CARDATA" Then If IsNumeric(Right(ws.Name, Len(ws.Name) - 7)) Then Range("a1").Select I would appreciate help but also an explanationa s to why I can't start this line of code with Range. Thanks. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code error
Thanks guys. One day i'll be good at this!
|
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
| OnTime code error "can't execute code in break mode" | Excel Programming | |||
| Error in Excel VBA Code (Error 91) | Excel Programming | |||
| How can I still go to the error-code after a On Error Goto? | Excel Programming | |||
| Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) | Excel Programming | |||
Linear Mode
