looping problem
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
|