Snasui Excel Forum

Code: Select all

Sub ListNum()
    Dim i As Integer, bln As Boolean
    Dim c As Integer, j As Integer
    Dim a As String, s As Integer
    For i = 1 To 9999
        bln = False
        s = 0
        For j = 1 To Len(CStr(i))
            a = Mid(i, j, 1)
            Select Case a
                Case 0, 3, 7, 8
                    bln = True
                    Exit For
                Case Else
                    s = s + a
            End Select
        Next j
        If bln = False Then
            Select Case s
                Case 9, 18, 27, 36
                    c = c + 1
                    Cells(c + 1, 1) = i
            End Select
        End If
    Next i
End Sub