Sub auto_open()
    Application.OnEntry = "lakhscrores"
End Sub

Sub lakhscrores()
    On Error Resume Next
    Dim ThisRange As Range
    Set ThisRange = Application.Caller
    For Each c In MyRange
        With c
            Select Case .Value
                Case Is <= -10000000
                    .NumberFormat = "#"",""##"",""##"",""###"
                Case -10000000 To -100000
                    .NumberFormat = "#"",""##"",""###"
                Case Is >= 10000000
                    .NumberFormat = "#"",""##"",""##"",""###"
                Case 100000 To 10000000
                    .NumberFormat = "#"",""##"",""###"
                End Select
        End With
    Next c
End Sub

