Formatting Column A

[JoshWolski]

I would like to create a code to check the format of all cells in column A, excluding A1 on my Sheets( "Input")

If the format is not one of the following, a msgbox with pop up saying "That number is not valid":

Formats

#########
############
##############
###-###-###
####-####-####
####-####-####-##

I don't even know where to start. Please Help

 

[ravishankar]

try the following macro codes. list your formats in column K and run the macro.

Sub josh()
Dim a As Integer, b As Integer, d As Integer, count As Integer
Dim c As String
b = Cells(Rows.count, 1).End(xlUp).Row
    For a = 2 To b
    c = Cells(a, 1).NumberFormat
    count = 0
        For d = 1 To 6
            If c = Cells(d, 12) Then
            count = count + 1
            End If
                If count < 1 Then
                MsgBox " row# " & a & " is not in correct format"
                Exit For
                End If
        Next d
    Next a
MsgBox "complete"
End Sub

Ravi shankar