Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Looping problem | Excel Programming | |||
Looping Problem | Excel Programming | |||
Looping problem........ | Excel Programming | |||
Looping Problem | Excel Programming | |||
Looping Problem | Excel Programming |