Hi,

I was use the code below mention in macro, in office2002 its working
fine, i have to run office2000 it was show error like : compile error
in hidden module: sheet1

kindly advice me what shall i want to do.

Sheet1 Code:
Private Sub Worksheet_Calculate()
Range("X12").EntireRow.Hidden = (Range("X12").Value = 0)
Range("X13").EntireRow.Hidden = (Range("X13").Value = 0)
End Sub

Private Sub CommandButton5_Click()
Dim cell As Range
   Range("D9:D13").ClearContents
   MsgBox "PREVIOUS DATA HAS BEEN CLEAR"
End Sub

Private Sub CommandButton6_Click()
   ActiveWorkbook.Save
   MsgBox "SAVED SUCESSFULLY"
End Sub
Private Sub CommandButton7_Click()
On Error Resume Next
Range("C7:E21,E6,F6,F12,F13").PrintPreview
On Error GoTo 0
End Sub

Private Sub CommandButton8_Click()
   Application.Quit
   MsgBox "CLOSED SUCESSFULLY"
   ActiveWorkbook.Close savechanges:=Flase
 End Sub

Private Sub CommandButton2_Click()
   Dim cell As Range
   Range("D9:D13").ClearContents
   MsgBox "PREVIOUS DATA HAS BEEN CLEAR"
   End Sub
Private Sub Calendar1_Click()
   ACTIVECELL.Value = CDbl(Calendar1.Value)
   ACTIVECELL.NumberFormat = "DD/MM/yyyy"
   ACTIVECELL.Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
   If Not Application.Intersect(Range("F6,D9,D10"), Target) Is
Nothing Then
       Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
       Calendar1.Top = Target.Top + Target.Height
       Calendar1.Visible = True
       ' select Today's date in the Calendar
       Calendar1.Value = Date
   ElseIf Calendar1.Visible Then Calendar1.Visible = False
   End If

    If ACTIVECELL.Address = Range("C7").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C9").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C10").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C11").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C12").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C13").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D14").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C15").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C16").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C17").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(1, 0).Select
   End If
   If ACTIVECELL.Address = Range("C18").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C19").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C20").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("C21").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D15").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D16").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D17").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D18").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D19").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D20").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("D21").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E6").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E9").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E10").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E11").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E12").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E15").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E16").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E17").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E18").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E19").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E20").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E21").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("E27").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("X12").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("X13").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("Y8").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("Y9").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If
   If ACTIVECELL.Address = Range("Y10").Address Then
    pword = InputBox("Enter Password To Edit State:")
   If pword = "deen01" Then ACTIVECELL.Select Else
ACTIVECELL.Offset(0, 0).Select
   End If

End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Range("C7:E21,E6,F6,F12,F13").PrintPreview
On Error GoTo 0
End Sub

Private Sub CommandButton3_Click()
   Application.Quit
   MsgBox "CLOSED SUCESSFULLY"
   ActiveWorkbook.Close savechanges:=Flase
End Sub

Private Sub CommandButton4_Click()
   ActiveWorkbook.Save
   MsgBox "SAVED SUCESSFULLY"
End Sub

Workbook code is:

Private Sub Workbook_Activate()
Dim bar As CommandBar
   For Each bar In Application.CommandBars
   bar.Enabled = False
   Next
   fbar = Application.DisplayFormulaBar
   Sbar = Application.DisplayStatusBar
   With Application
   .DisplayFormulaBar = False
   .DisplayStatusBar = False
   End With
End Sub
Private Sub Workbook_Deactivate()
   Dim bar As CommandBar
   For Each bar In Application.CommandBars
   bar.Enabled = True
   Next
   fbar = Application.DisplayFormulaBar
   Sbar = Application.DisplayStatusBar
   With Application
   .DisplayFormulaBar = True
   .DisplayStatusBar = True
   End With

End Sub

Private Sub Workbook_Open()

MsgBox "CREATED BY MOHAMMED & MUTHU, BANGALORE TEAM,IF ANY QUERY-
SUGGESTION FEEL FREE CT:+919986636272 E-
MAIL:Muthu.Kumaran@maxnewyorklife.com"

End Sub

Module 1 code is:

Option Explicit
'Main Function
Function deen(ByVal MyNumber)

   Dim Rupees, Paise, Temp
   Dim DecimalPlace, Count
   ReDim Place(9) As String
       Place(2) = " Thousand "
       Place(3) = " Lac "
       Place(4) = " Crore "
       Place(5) = " Arab " ' String representation of amount
       MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0
if none
       DecimalPlace = InStr(MyNumber, ".")
       'Convert Paise and set MyNumber to Rupee amount
       If DecimalPlace > 0 Then
           Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &
"00", 2))
           MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
       End If
       Count = 1
       Do While MyNumber <> ""
           If Count = 1 Then Temp = GetHundreds(Right(MyNumber, 3))
           If Count > 1 Then Temp = GetHundreds(Right(MyNumber, 2))
           If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
           If Count = 1 And Len(MyNumber) > 3 Then
           MyNumber = Left(MyNumber, Len(MyNumber) - 3)
           Else
               If Count > 1 And Len(MyNumber) > 2 Then
               MyNumber = Left(MyNumber, Len(MyNumber) - 2)
               Else
                   MyNumber = ""
               End If
           End If
           Count = Count + 1
       Loop
       Select Case Rupees
           Case ""
               Rupees = "No Rupees"
           Case "One"
               Rupees = "One Rupee"
           Case Else
               'Rupees = Rupees & " Rupees"
               Rupees = "Rupees " & Rupees

       End Select
       Select Case Paise
           Case ""
               'Paise = ""
               Paise = " Only"
           Case "One"
               Paise = " and One Paisa"
           Case Else
               Paise = " and " & Paise & " Paise"

       End Select
   deen = Rupees & Paise
End Function
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Function GetHundreds(ByVal MyNumber)
   Dim Result As String
       If Val(MyNumber) = 0 Then Exit Function
       MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds
place
       If Mid(MyNumber, 1, 1) <> "0" Then
           Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
       End If
       'Convert the tens and ones place
       If Mid(MyNumber, 2, 1) <> "0" Then
           Result = Result & GetTens(Mid(MyNumber, 2))
           Else
               Result = Result & GetDigit(Mid(MyNumber, 3))
       End If
       GetHundreds = Result
End Function
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Function GetTens(TensText)
   Dim Result As String
       Result = "" 'null out the temporary function value
       If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
           Select Case Val(TensText)
               Case 10: Result = "Ten"
               Case 11: Result = "Eleven"
               Case 12: Result = "Twelve"
               Case 13: Result = "Thirteen"
               Case 14: Result = "Fourteen"
               Case 15: Result = "Fifteen"
               Case 16: Result = "Sixteen"
               Case 17: Result = "Seventeen"
               Case 18: Result = "Eighteen"
               Case 19: Result = "Nineteen"
               Case Else
           End Select
           Else ' If value between 20-99
           Select Case Val(Left(TensText, 1))
               Case 2: Result = "Twenty "
               Case 3: Result = "Thirty "
               Case 4: Result = "Forty "
               Case 5: Result = "Fifty "
               Case 6: Result = "Sixty "
               Case 7: Result = "Seventy "
               Case 8: Result = "Eighty "
               Case 9: Result = "Ninety "
               Case Else
           End Select
           Result = Result & GetDigit _
           (Right(TensText, 1)) 'Retrieve ones place
       End If
       GetTens = Result
End Function
'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************
Function GetDigit(Digit)
   Select Case Val(Digit)
       Case 1: GetDigit = "One"
       Case 2: GetDigit = "Two"
       Case 3: GetDigit = "Three"
       Case 4: GetDigit = "Four"
       Case 5: GetDigit = "Five"
       Case 6: GetDigit = "Six"
       Case 7: GetDigit = "Seven"
       Case 8: GetDigit = "Eight"
       Case 9: GetDigit = "Nine"
       Case Else: GetDigit = ""
   End Select
End Function