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

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

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

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

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