About Us

Ewing25

works perfectly thanks!

"Mike H." wrote:

Change
If Trips 1 Then

To

If Trips < "" And Trips < 0 Then

"Ewing25" wrote:

Okay i changed it and its still giving me the same error.

"Mike H." wrote:

When you select cancel trips has the value = "", which is not an integer.
Change the declaration of trip to be:
Dim trips as variant

and this problem is solved!

"Ewing25" wrote:

When i click cancel it comes up with an error "Run time error'13', type
mismatch"

Here is my code so far

Private Sub Worksheet_Activate()
Call TripsCopy
End Sub

Sub TripsCopy()
Dim Trips As Integer
Dim tr As Integer

Trips = InputBox("Enter no. of trips")
If Trips 1 Then
'Sheets("Individual Trip").Select
For tr = 1 To Trips
Sheets("Individual Trip").Copy After:=Sheets(Sheets.Count)
Next
End If
End Sub

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Looping problem	rpw	Excel Programming	0	May 23rd 07 10:57 PM
Looping Problem	GregR	Excel Programming	0	September 26th 06 04:29 PM
Looping problem........	Steve Jones	Excel Programming	1	September 22nd 06 04:31 PM
Looping Problem	Paul Black	Excel Programming	3	September 17th 05 09:59 AM
Looping Problem	Todd Huttenstine[_3_]	Excel Programming	5	January 25th 04 12:51 AM

Menu

About Us