Quote:

Sub TruncateCells_A()

Dim rng As Range

For Each rng In Selection
If Left(rng, 1) = "A" Then
rng = Right(rng, Len(rng) - 1)
End If
Next

End Sub

Quote:

Public Sub Missing_Numbers()
   
    Dim iLoop As Long, iLoop2 As Long
    Dim Last_Row As Long
    Dim Old_Number As Long, New_Number As Long
   
    Last_Row = Range("A65536").End(xlUp).Row
    Old_Number = Val(Right(ActiveSheet.Range("A1").Value, 5))
    For iLoop = 1 To Last_Row
        New_Number = Val(Right(Worksheets(1).Range("A" & iLoop).Value, 5))
        For iLoop2 = Old_Number To (New_Number - 2)
            ActiveSheet.Range("B" & Range("B65536").End(xlUp).Row + 1).Value = _
            "Number " & iLoop2 + 1 & " is missing from the list"
        Next iLoop2
        Old_Number = New_Number
    Next iLoop
   
End Sub

Quote:

Sub FindDups()
  '
  ' NOTE: You must select the first cell in the column and
  ' make sure that the column is sorted before running this macro
  '
  ScreenUpdating = False
  FirstItem = ActiveCell.Value
  SecondItem = ActiveCell.Offset(1, 0).Value
  Offsetcount = 1
  Do While ActiveCell <> ""
      If FirstItem = SecondItem Then
        ActiveCell.Offset(Offsetcount, 0).Interior.Color = RGB(255, 0, 0)
        Offsetcount = Offsetcount + 1
        SecondItem = ActiveCell.Offset(Offsetcount, 0).Value
      Else
        ActiveCell.Offset(Offsetcount, 0).Select
        FirstItem = ActiveCell.Value
        SecondItem = ActiveCell.Offset(1, 0).Value
        Offsetcount = 1
      End If
  Loop
  ScreenUpdating = True
End Sub