/*
Copyright 2015 TacDev [http://www.tacdev.eu] Contact: support@tacdev.eu
*/
		...
		...
		...
		
		
    'check if directory for commcard backup exists, if not create it
    TBFolderName = "C:\COMMCARD BACKUP"
    
    If Dir(TBFolderName, vbDirectory) = "" Then
    
        MkDir Path:=TBFolderName
        TBFileName = TBFolderName & "\TLP COOMCARD BU " & Format(Now(), "ddmmm - hhnn") & ".xls"
        
    Else
    
        TBFileName = TBFolderName & "\TLP COOMCARD BU " & Format(Now(), "ddmmm - hhnn") & ".xls"
        
    End If

    'save copy of commcard in backupfolder
    ThisWorkbook.SaveCopyAs TBFileName
    
    'save copy of commcard in same folder as creation file
    ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "\COMMCARD BACKUP.xls")
    
    If OpenImportFile = True Then
    
        '//////////////////////////////////
        '/// Preparation
        '//////////////////////////////////
        ThisWorkbook.Worksheets("DATA").Cells(5, 1).Value = "NO"
        ThisWorkbook.Worksheets("DATA").Cells(7, 1).Value = "NO"
        ThisWorkbook.Worksheets("DATA").Cells(9, 1).Value = "NO"
        ThisWorkbook.Worksheets("DATA").Cells(11, 1).Value = "NO"
    
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
    
        Set Commcard = Workbooks(ThisWorkbook.Name)
    
        ThisWorkbook.Worksheets("COMMCARD").Activate
        ThisWorkbook.Worksheets("COMMCARD").Unprotect ("password")
       
        Set Timeboard = Workbooks(FileNameShort)
                     
        '//////////////////////////////////
        '/// Search for data sections
        '//////////////////////////////////
        For row = 1 To Timeboard.Worksheets("Timeboard").UsedRange.Rows.Count
        
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "STARTDATA" Then
                StartData = row + 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "ENDDATA" Then
                EndData = row - 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "STARTTAKEOFFSLOTS" Then
                StartTOSlots = row + 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "ENDTAKEOFFSLOTS" Then
                EndTOSlots = row - 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "STARTRECOVERYSLOTS" Then
                StartRECSlots = row + 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "ENDRECOVERYSLOTS" Then
                EndRECSlots = row - 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "STARTCOORDINATES" Then
                StartCoords = row + 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "ENDCOORDINATES" Then
                EndCoords = row - 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "STARTTANKERDATA" Then
                StartAAR = row + 1
                GoTo ContinueLoop
            End If
            
            If Timeboard.Worksheets("Timeboard").Cells(row, 1).Value = "ENDTANKERDATA" Then
                EndAAR = row - 1
                GoTo ContinueLoop
            End If
            
ContinueLoop:
        Next row
        
        '//////////////////////////////////
        '/// CallsignImport
        '//////////////////////////////////
        ' If the callsigns have not been imported yet but they are in the file
        If Worksheets("DATA").Cells(3, 1).Value <> "YES" And _
          (Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "Complete" Or _
           Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyTimings" Or _
           Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyAltitudes" Or _
           Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyWeapons" Or _
           Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyTankers" _
           ) Then
        
            ' As there are no callsigns, there is no meaningful data in ANY of the cells
            ' So delete it all just to be safe. After the first import we have to be more cautious.
            Range("A4:U26").Select
            Selection.ClearContents
          
            Range("I28:K32").Select
            Selection.ClearContents
    
            Range("I34:K38").Select
            Selection.ClearContents
    
            Range("L28:R50").Select
            Selection.ClearContents
          
            Range("S28:V37").Select
            Selection.ClearContents

            u = 0
                
            For d = StartData To EndData
                
                ' write timeboard info to top of commcard
                Worksheets("Commcard").Cells(u + 4, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text & " " & Timeboard.Worksheets("Timeboard").Cells(d, 2).Text ' Callsign
                Worksheets("Commcard").Cells(u + 4, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text ' Callsign
                Worksheets("Commcard").Cells(u + 28, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text ' Callsign
                    
                u = u + 1
                
            Next d
            
            ' White it out
            Range("A4:A26").Select
            Selection.Interior.Color = Orange
            
            Range("L4:L26").Select
            Selection.Interior.Color = Blue
            
            Range("L28:L50").Select
            Selection.Interior.Color = Lila
     
            ' Mark callsigns as imported
            Worksheets("DATA").Cells(3, 1).Value = "YES"
        End If
        
        '//////////////////////////////////
        '/// Timeboard Import
        '//////////////////////////////////
        ' Now at this point here callsigns HAVE to be imported because of the prior code
        If Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "Complete" Or Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyTimings" Then
        
            Range("B4:J26").Select
            Selection.ClearContents
            
            Range("O4:R26").Select
            Selection.ClearContents
            
            Range("I28:K32").Select
            Selection.ClearContents
    
            Range("I34:K38").Select
            Selection.ClearContents
    
            Range("Q28:R50").Select
            Selection.ClearContents
            
            Range("S28:V37").Select
            Selection.ClearContents

            For u = 4 To 26
                For d = StartData To EndData
                    If InStr(1, Worksheets("Commcard").Cells(u, 1).Value, Timeboard.Worksheets("Timeboard").Cells(d, 1).Text) = 1 Then
                        ' write timeboard info to left top of commcard
                        Worksheets("Commcard").Cells(u, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text 'type ac
                        Worksheets("Commcard").Cells(u, 3).Value = Timeboard.Worksheets("Timeboard").Cells(d, 4).Text 'task
                        Worksheets("Commcard").Cells(u, 4).Value = Timeboard.Worksheets("Timeboard").Cells(d, 5).Text 'm3
                        Worksheets("Commcard").Cells(u, 5).Value = Timeboard.Worksheets("Timeboard").Cells(d, 6).Text 'tacan
                        Worksheets("Commcard").Cells(u, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 7).Text ' freq
                        Worksheets("Commcard").Cells(u, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 8).Text ' fdl
                        Worksheets("Commcard").Cells(u, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 10).Text ' taxi
                        Worksheets("Commcard").Cells(u, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 11).Text ' to
                        Worksheets("Commcard").Cells(u, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 12).Text & " (" & Timeboard.Worksheets("Timeboard").Cells(d, 39).Text & "m)" ' in hold
                    End If
                Next d
            Next u
            
            For u = 4 To 26
                For d = StartData To EndData
                    If Worksheets("Commcard").Cells(u, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text Then
                        ' write timeboard info to right top of commcard
                        Worksheets("Commcard").Cells(u, 15).Value = Timeboard.Worksheets("Timeboard").Cells(d, 13).Text ' Push
                        Worksheets("Commcard").Cells(u, 16).Value = Timeboard.Worksheets("Timeboard").Cells(d, 14).Text ' TOT1
                        Worksheets("Commcard").Cells(u, 17).Value = Timeboard.Worksheets("Timeboard").Cells(d, 15).Text ' TOT2
                        Worksheets("Commcard").Cells(u, 18).Value = Timeboard.Worksheets("Timeboard").Cells(d, 9).Text ' Laser
                    End If
                Next d
            Next u
            
            For u = 28 To 50
                For d = StartData To EndData
                    If Worksheets("Commcard").Cells(u, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text Then
                        ' write timeboard info to recovery part
                        Worksheets("Commcard").Cells(u, 13).Value = Timeboard.Worksheets("Timeboard").Cells(d, 16).Text ' exit time
                        Worksheets("Commcard").Cells(u, 17).Value = Timeboard.Worksheets("Timeboard").Cells(d, 17).Text & " (" & Timeboard.Worksheets("Timeboard").Cells(d, 40).Text & "m)" ' Out Hold
                        Worksheets("Commcard").Cells(u, 18).Value = Timeboard.Worksheets("Timeboard").Cells(d, 18).Text & "/" & Timeboard.Worksheets("Timeboard").Cells(d, 19).Text ' hold exit/recovery time
                    End If
                Next d
            Next u
            
            ' write takeoff slot data
            Dim FreeTOSlotCount As Integer
            Dim TakenTOSlotCount As Integer
           
            FreeTOSlotCount = 0
            TakenTOSlotCount = 0
         
            For d = StartTOSlots To EndTOSlots
            
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = vbNullString And FreeTOSlotCount < 15 Then
                
                    row = FreeTOSlotCount Mod 5
                    col = Int(CDbl(FreeTOSlotCount) / 5)
                    FreeTOSlotCount = FreeTOSlotCount + 1
                    Worksheets("Commcard").Cells(28 + row, 9 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    GoTo ContinueLoopTO
                    
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = "Red" And TakenTOSlotCount < 15 Then
                
                    row = TakenTOSlotCount Mod 5
                    col = Int(CDbl(TakenTOSlotCount) / 5)
                    TakenTOSlotCount = TakenTOSlotCount + 1
                    Worksheets("Commcard").Cells(34 + row, 9 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    Worksheets("Commcard").Cells(34 + row, 9 + col).Font.Color = RGB(200, 0, 0)
                    GoTo ContinueLoopTO
              
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = "Green" And TakenTOSlotCount < 15 Then
                
                    row = TakenTOSlotCount Mod 5
                    col = Int(CDbl(TakenTOSlotCount) / 5)
                    TakenTOSlotCount = TakenTOSlotCount + 1
                    Worksheets("Commcard").Cells(34 + row, 9 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    Worksheets("Commcard").Cells(34 + row, 9 + col).Font.Color = RGB(0, 180, 0)
                    GoTo ContinueLoopTO
              
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = "TLP" And TakenTOSlotCount < 15 Then
                
                    row = TakenTOSlotCount Mod 5
                    col = Int(CDbl(TakenTOSlotCount) / 5)
                    TakenTOSlotCount = TakenTOSlotCount + 1
                    Worksheets("Commcard").Cells(34 + row, 9 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    Worksheets("Commcard").Cells(34 + row, 9 + col).Font.Color = RGB(0, 180, 180)
                    GoTo ContinueLoopTO
              
                End If
                        
ContinueLoopTO:
            Next d
      
            ' write recovery slot data
            Dim FreeRECSlotCount As Integer
            Dim TakenRECSlotCount As Integer
           
            FreeRECSlotCount = 0
            TakenRECSlotCount = 0
         
            For d = StartRECSlots To EndRECSlots
            
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = vbNullString And FreeRECSlotCount < 15 Then
                
                    row = FreeRECSlotCount Mod 10
                    col = Int(CDbl(FreeRECSlotCount) / 10)
                    FreeRECSlotCount = FreeRECSlotCount + 1
                    Worksheets("Commcard").Cells(28 + row, 19 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    GoTo ContinueLoopREC
                    
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = "Red" And TakenRECSlotCount < 15 Then
                
                    row = TakenRECSlotCount Mod 10
                    col = Int(CDbl(TakenRECSlotCount) / 10)
                    TakenRECSlotCount = TakenRECSlotCount + 1
                    Worksheets("Commcard").Cells(28 + row, 21 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    Worksheets("Commcard").Cells(28 + row, 21 + col).Font.Color = RGB(200, 0, 0)
                    GoTo ContinueLoopREC
              
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = "Green" And TakenRECSlotCount < 15 Then
                
                    row = TakenRECSlotCount Mod 10
                    col = Int(CDbl(TakenRECSlotCount) / 10)
                    TakenRECSlotCount = TakenRECSlotCount + 1
                    Worksheets("Commcard").Cells(28 + row, 21 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    Worksheets("Commcard").Cells(28 + row, 21 + col).Font.Color = RGB(0, 180, 0)
                    GoTo ContinueLoopREC
              
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text = "TLP" And TakenRECSlotCount < 15 Then
                
                    row = TakenRECSlotCount Mod 10
                    col = Int(CDbl(TakenRECSlotCount) / 10)
                    TakenRECSlotCount = TakenRECSlotCount + 1
                    Worksheets("Commcard").Cells(28 + row, 21 + col).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text
                    Worksheets("Commcard").Cells(28 + row, 21 + col).Font.Color = RGB(0, 180, 180)
                    GoTo ContinueLoopREC
              
                End If
                        
ContinueLoopREC:
            Next d
               
            ' Finally sort the three sections
            Worksheets("COMMCARD").Range("A4:K26").Select
            Selection.Sort Key1:=Range("I4"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers
                    
            Worksheets("COMMCARD").Range("L4:V26").Select
            Selection.Sort Key1:=Range("O4"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers
            
            Worksheets("COMMCARD").Range("L28:R50").Select
            Selection.Sort Key1:=Range("M28"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers
            
            ' And white it out
            Range("B4:J26").Select
            Selection.Interior.Color = Orange
             
            Range("O4:R26").Select
            Selection.Interior.Color = Blue
            
            Range("I28:K32").Select
            Selection.Interior.Color = RGB(255, 255, 255)
    
            Range("I34:K38").Select
            Selection.Interior.Color = RGB(255, 255, 255)
    
            Range("M28:M50").Select
            Selection.Interior.Color = Lila
            
            Range("Q28:R50").Select
            Selection.Interior.Color = Lila
            
            Range("S28:V37").Select
            Selection.Interior.Color = RGB(255, 255, 255)
               
            '//////////////////////////////////
            '/// Air to Air Refueling Card
            '//////////////////////////////////
            Worksheets("REFUELING CARD").Activate
            Worksheets("REFUELING CARD").Unprotect ("vipersrule")
            
            ' Before the timings are inserted the information in there is worthless
            Range("A16:J55").Select
            Selection.ClearContents
            
            Dim AARCounter As Integer
            AARCounter = 0
            
            ' This will get any refueling times out of the timing board and put it into a slot on the AAR card
            For d = StartData To EndData
                If Timeboard.Worksheets("Timeboard").Cells(d, 20).Text <> vbNullString Then
                
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text & " " & Timeboard.Worksheets("Timeboard").Cells(d, 2).Text
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' type ac
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 3).Value = Timeboard.Worksheets("Timeboard").Cells(d, 20).Text ' start pre aar
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 4).Value = Timeboard.Worksheets("Timeboard").Cells(d, 21).Text ' end pre aar
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 5).Value = "Pre" ' aar type
                    
                    AARCounter = AARCounter + 1
                    
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 22).Text <> vbNullString Then
                
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text & " " & Timeboard.Worksheets("Timeboard").Cells(d, 2).Text
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' type ac
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 3).Value = Timeboard.Worksheets("Timeboard").Cells(d, 22).Text ' start mid aar
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 4).Value = Timeboard.Worksheets("Timeboard").Cells(d, 23).Text ' end mid aar
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 5).Value = "Mid" ' aar type
                    
                    AARCounter = AARCounter + 1
                    
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 24).Text <> vbNullString Then
                
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text & " " & Timeboard.Worksheets("Timeboard").Cells(d, 2).Text
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' type ac
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 3).Value = Timeboard.Worksheets("Timeboard").Cells(d, 24).Text ' start post aar
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 4).Value = Timeboard.Worksheets("Timeboard").Cells(d, 25).Text ' end post aar
                    Worksheets("REFUELING CARD").Cells(16 + AARCounter, 5).Value = "Post" ' aar type
                    
                    AARCounter = AARCounter + 1
                    
                End If
            Next d
            
            ' Sort AAR card
            Worksheets("REFUELING CARD").Range("A16:E55").Interior.Color = RGB(255, 255, 255)
            Worksheets("REFUELING CARD").Range("A16:J55").Sort Key1:=Range("C16"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers
            
            Worksheets("REFUELING CARD").Protect ("vipersrule")
            
            '//////////////////////////////////
            '/// Weapons Card
            '//////////////////////////////////
            Worksheets("WEAPONS CARD").Activate
            Worksheets("WEAPONS CARD").Unprotect ("vipersrule")
            
            ' Before the timings are inserted the information in there is worthless
            Range("A7:K46").Select
            Selection.ClearContents

            Dim WeaponCounter As Integer
            WeaponCounter = 0
            
            ' This will get any TOTs out of the timing board and put it into a slot on the weapons card
            For d = StartData To EndData
                If Timeboard.Worksheets("Timeboard").Cells(d, 53).Text = "1" And _
                   Len(Timeboard.Worksheets("Timeboard").Cells(d, 14).Text) >= 6 Then
                
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text & " " & Timeboard.Worksheets("Timeboard").Cells(d, 2).Text
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' type ac
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 3).Value = "P"
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 4).Value = Left(Timeboard.Worksheets("Timeboard").Cells(d, 14).Text, 6)  ' start tot
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 5).Value = Right(Timeboard.Worksheets("Timeboard").Cells(d, 14).Text, 6) ' end tot
                    
                    WeaponCounter = WeaponCounter + 1
                    
                End If
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 53).Text = "1" And _
                   Len(Timeboard.Worksheets("Timeboard").Cells(d, 15).Text) >= 6 Then
                
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text & " " & Timeboard.Worksheets("Timeboard").Cells(d, 2).Text
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' type ac
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 3).Value = "S"
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 4).Value = Left(Timeboard.Worksheets("Timeboard").Cells(d, 15).Text, 6) ' start tot
                    Worksheets("WEAPONS CARD").Cells(7 + WeaponCounter, 5).Value = Right(Timeboard.Worksheets("Timeboard").Cells(d, 15).Text, 6) ' end tot
                    
                    WeaponCounter = WeaponCounter + 1
                    
                End If
            Next d
            
            ' Sort WEAPONS card
            Worksheets("WEAPONS CARD").Range("A7:E46").Interior.Color = RGB(255, 255, 255)
            Worksheets("WEAPONS CARD").Range("A7:K46").Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers
            
            Worksheets("WEAPONS CARD").Protect ("vipersrule")
          
            Worksheets("COMMCARD").Activate
        End If
        
        '//////////////////////////////////
        '/// Altitude Import
        '//////////////////////////////////
        If Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "Complete" Or Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyAltitudes" Then
        
            Range("K4:K26").Select
            Selection.ClearContents
            
            Range("M4:N26").Select
            Selection.ClearContents
            
            Range("N28:P50").Select
            Selection.ClearContents

            For u = 4 To 26
                For d = StartData To EndData
                    If InStr(1, Worksheets("Commcard").Cells(u, 1).Value, Timeboard.Worksheets("Timeboard").Cells(d, 1).Text) = 1 Then
                    
                        Worksheets("Commcard").Cells(u, 11).Value = Timeboard.Worksheets("Timeboard").Cells(d, 26).Text ' in hold alt
                        
                    End If
                Next d
            Next u
            
            For u = 4 To 26
                For d = StartData To EndData
                    If Worksheets("Commcard").Cells(u, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text Then
                    
                        Worksheets("Commcard").Cells(u, 13).Value = Timeboard.Worksheets("Timeboard").Cells(d, 30).Text ' Corr Alt
                        Worksheets("Commcard").Cells(u, 14).Value = Timeboard.Worksheets("Timeboard").Cells(d, 28).Text ' Push Alt
                                                    
                    End If
                Next d
            Next u
            
            For u = 28 To 50
                For d = StartData To EndData
                    If Worksheets("Commcard").Cells(u, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text Then
                    
                        Worksheets("Commcard").Cells(u, 14).Value = Timeboard.Worksheets("Timeboard").Cells(d, 31).Text ' exit pt
                        Worksheets("Commcard").Cells(u, 15).Value = Timeboard.Worksheets("Timeboard").Cells(d, 29).Text ' Corr Alt
                        Worksheets("Commcard").Cells(u, 16).Value = Timeboard.Worksheets("Timeboard").Cells(d, 27).Text ' out hold Alt
                        
                    End If
                Next d
            Next u
            
            ' Whiteout
            Range("K4:K26").Select
            Selection.Interior.Color = Orange
            
            Range("M4:N26").Select
            Selection.Interior.Color = Blue
            
            Range("N28:P50").Select
            Selection.Interior.Color = Lila
        End If
        
        '//////////////////////////////////
        '/// Weapons Import
        '//////////////////////////////////
        If Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "Complete" Or Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyWeapons" Then
        
            '//////////////////////////////////
            '/// Comm Card
            '//////////////////////////////////
            Range("S4:U26").Select
            Selection.ClearContents

            For u = 4 To 26
                For d = StartData To EndData
                    If Worksheets("Commcard").Cells(u, 12).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text Then
                    
                        Worksheets("Commcard").Cells(u, 19).Value = Timeboard.Worksheets("Timeboard").Cells(d, 32).Text ' TGT
                        Worksheets("Commcard").Cells(u, 20).Value = Timeboard.Worksheets("Timeboard").Cells(d, 33).Text ' DMPI
                        Worksheets("Commcard").Cells(u, 21).Value = Timeboard.Worksheets("Timeboard").Cells(d, 36).Text ' WPN
                       
                    End If
                Next d
            Next u
            
            ' Whiteout
            Range("S4:U26").Select
            Selection.Interior.Color = Blue
            
            '//////////////////////////////////
            '/// Weapons Card
            '//////////////////////////////////
            Worksheets("WEAPONS CARD").Activate
            Worksheets("WEAPONS CARD").Unprotect ("vipersrule")
            
            Range("F7:K46").Select
            Selection.ClearContents

            For u = 7 To 46
                For d = StartData To EndData
                    If InStr(1, Worksheets("WEAPONS CARD").Cells(u, 1).Value, Timeboard.Worksheets("Timeboard").Cells(d, 1).Text) = 1 Then
                        
                        If Worksheets("WEAPONS CARD").Cells(u, 3).Value = "P" Then
                        
                            Worksheets("WEAPONS CARD").Cells(u, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 54).Text ' planned tot 1
                            Worksheets("WEAPONS CARD").Cells(u, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 9).Text ' laser code
                            Worksheets("WEAPONS CARD").Cells(u, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 32).Text ' Target1
                            Worksheets("WEAPONS CARD").Cells(u, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 33).Text ' DMPI1
                            Worksheets("WEAPONS CARD").Cells(u, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 36).Text  ' Weapon
                            Worksheets("WEAPONS CARD").Cells(u, 11).Value = Timeboard.Worksheets("Timeboard").Cells(d, 55).Text ' remarks 1
                        
                        Else
                        
                            Worksheets("WEAPONS CARD").Cells(u, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 56).Text ' planned tot 1
                            Worksheets("WEAPONS CARD").Cells(u, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 9).Text ' laser code
                            Worksheets("WEAPONS CARD").Cells(u, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 34).Text ' Target1
                            Worksheets("WEAPONS CARD").Cells(u, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 35).Text ' DMPI1
                            Worksheets("WEAPONS CARD").Cells(u, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 36).Text  ' Weapon
                            Worksheets("WEAPONS CARD").Cells(u, 11).Value = Timeboard.Worksheets("Timeboard").Cells(d, 57).Text ' remarks 1

                        End If
                    End If
                Next d
            Next u
            
            ' Sort WEAPONS card
            Worksheets("WEAPONS CARD").Range("A7:K46").Interior.Color = RGB(255, 255, 255)
            Worksheets("WEAPONS CARD").Range("A7:K46").Sort Key1:=Range("F7"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers
            
            Worksheets("WEAPONS CARD").Protect ("vipersrule")
          
            Worksheets("COMMCARD").Activate
            
        End If
        
        '//////////////////////////////////
        '/// Coordinate Import
        '//////////////////////////////////
        If Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "Complete" Or Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyCoordinates" Then

            Range("A28:D62").Select
            Selection.ClearContents

            u = 0
                
            For d = StartCoords To EndCoords
                
                If Timeboard.Worksheets("Timeboard").Cells(d, 1).Text <> vbNullString Then
                
                    Worksheets("Commcard").Cells(u + 28, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 1).Text ' Name
                    Worksheets("Commcard").Cells(u + 28, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 2).Text ' Lat
                    Worksheets("Commcard").Cells(u + 28, 3).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' Lon
                    Worksheets("Commcard").Cells(u + 28, 4).Value = Timeboard.Worksheets("Timeboard").Cells(d, 4).Text ' Description
                        
                    u = u + 1
                    
                End If
                
            Next d

            Range("A28:D62").Select
            Selection.Interior.Color = RGB(255, 255, 255)

        End If
        
        '//////////////////////////////////
        '/// Tanker Import
        '//////////////////////////////////
        If Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "Complete" Or Timeboard.Worksheets("Timeboard").Cells(1, 1).Text = "OnlyTankers" Then

            Worksheets("REFUELING CARD").Activate
            Worksheets("REFUELING CARD").Unprotect ("vipersrule")

            '//////////////////////////////////
            '/// Tanker Description
            '//////////////////////////////////
            Range("A7:J12").Select
            Selection.ClearContents

            u = 0
                
            For d = StartAAR To EndAAR
                If Timeboard.Worksheets("Timeboard").Cells(d, 2).Text <> vbNullString Then
                
                    Worksheets("REFUELING CARD").Cells(u + 7, 1).Value = Timeboard.Worksheets("Timeboard").Cells(d, 2).Text ' Callsign
                    Worksheets("REFUELING CARD").Cells(u + 7, 2).Value = Timeboard.Worksheets("Timeboard").Cells(d, 3).Text ' AC type
                    Worksheets("REFUELING CARD").Cells(u + 7, 3).Value = Timeboard.Worksheets("Timeboard").Cells(d, 4).Text ' Fuel Available
                    Worksheets("REFUELING CARD").Cells(u + 7, 4).Value = Timeboard.Worksheets("Timeboard").Cells(d, 5).Text ' Refuel System
                    Worksheets("REFUELING CARD").Cells(u + 7, 5).Value = Timeboard.Worksheets("Timeboard").Cells(d, 6).Text ' ROZ
                    Worksheets("REFUELING CARD").Cells(u + 7, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 7).Text ' Orbit
                    Worksheets("REFUELING CARD").Cells(u + 7, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 8).Text ' Alt
                    Worksheets("REFUELING CARD").Cells(u + 7, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 9).Text ' Tacan
                    Worksheets("REFUELING CARD").Cells(u + 7, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 10).Text ' AAR Ctrl
                    Worksheets("REFUELING CARD").Cells(u + 7, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 11).Text ' Boom
                    
                    u = u + 1
                    
                End If
                
            Next d
            
            Range("A7:J12").Select
            Selection.Interior.Color = RGB(255, 255, 255)

            '//////////////////////////////////
            '/// Tanker Assignments
            '//////////////////////////////////
            Range("F16:J55").Select
            Selection.ClearContents
            
            For u = 16 To 55
                For d = StartData To EndData
                    If InStr(1, Worksheets("REFUELING CARD").Cells(u, 1).Value, Timeboard.Worksheets("Timeboard").Cells(d, 1).Text) = 1 Then
                    
                        If Worksheets("REFUELING CARD").Cells(u, 5).Value = "Pre" Then
                        
                            Worksheets("REFUELING CARD").Cells(u, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 42).Text ' offload pre
                            Worksheets("REFUELING CARD").Cells(u, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 41).Text ' tanker pre
                            Worksheets("REFUELING CARD").Cells(u, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 38).Text ' refuel system
                            Worksheets("REFUELING CARD").Cells(u, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 43).Text ' altitude pre
                            Worksheets("REFUELING CARD").Cells(u, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 44).Text ' tacan pre
                        
                        End If
                                                
                        If Worksheets("REFUELING CARD").Cells(u, 5).Value = "Mid" Then
                        
                            Worksheets("REFUELING CARD").Cells(u, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 46).Text ' offload mid
                            Worksheets("REFUELING CARD").Cells(u, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 45).Text ' tanker mid
                            Worksheets("REFUELING CARD").Cells(u, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 38).Text ' refuel system
                            Worksheets("REFUELING CARD").Cells(u, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 47).Text ' altitude mid
                            Worksheets("REFUELING CARD").Cells(u, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 48).Text ' tacan mid
                        
                        End If
                           
                        If Worksheets("REFUELING CARD").Cells(u, 5).Value = "Post" Then
                        
                            Worksheets("REFUELING CARD").Cells(u, 6).Value = Timeboard.Worksheets("Timeboard").Cells(d, 50).Text ' offload post
                            Worksheets("REFUELING CARD").Cells(u, 7).Value = Timeboard.Worksheets("Timeboard").Cells(d, 49).Text ' tanker post
                            Worksheets("REFUELING CARD").Cells(u, 8).Value = Timeboard.Worksheets("Timeboard").Cells(d, 38).Text ' refuel system
                            Worksheets("REFUELING CARD").Cells(u, 9).Value = Timeboard.Worksheets("Timeboard").Cells(d, 51).Text ' altitude post
                            Worksheets("REFUELING CARD").Cells(u, 10).Value = Timeboard.Worksheets("Timeboard").Cells(d, 52).Text ' tacan post
                        
                        End If
                                            
                    End If
                Next d
            Next u
            
            ' Sort AAR card
            Worksheets("REFUELING CARD").Range("A16:J55").Interior.Color = RGB(255, 255, 255)
            Worksheets("REFUELING CARD").Range("A16:J55").Sort Key1:=Range("C16"), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortTextAsNumbers

            Worksheets("REFUELING CARD").Protect ("vipersrule")
            Worksheets("COMMCARD").Activate
            
        End If

        '//////////////////////////////////
        '/// Cleanup
        '//////////////////////////////////
        Worksheets("COMMCARD").Activate
        Worksheets("COMMCARD").Protect ("vipersrule")
        Range("A1").Select
        
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
        Application.EnableEvents = True
        
        Timeboard.Close (False)
        
        d = MsgBox("Timeboard import complete.", vbOKOnly, "TLP TIMECARD")
		
		
		...
		...
		...