mcfly
Board Regular
- Joined
- May 15, 2002
- Messages
- 162
I wrote some code on excel XP and when I try to use it on excel 2000 I keep getting a compile error 'can't find project or library.
Can anyone please point out why I am having the problem.
Thanks in advance for any replies.
Public Sub userform_initialize()
MultiPage1.Value = 0
'Clear Contents
Worksheets("Sheet1").Cells(14, 2) = Clear
Worksheets("Sheet1").Cells(15, 2) = Clear
Worksheets("Sheet1").Cells(16, 2) = Clear
Worksheets("Sheet1").Cells(17, 2) = Clear
Worksheets("Sheet1").Cells(13, 2) = Clear
Worksheets("Sheet1").Cells(13, 3) = Clear
Worksheets("Sheet1").Cells(13, 4) = Clear
Worksheets("Sheet1").Cells(5, 1) = Clear
Worksheets("Sheet1").Cells(8, 2) = Clear
Worksheets("Sheet1").Cells(8, 5) = Clear
Worksheets("Sheet1").Cells(8, 6) = Clear
Worksheets("Sheet1").Cells(5, 6) = Clear
Worksheets("Sheet1").Cells(9, 5) = Clear
Worksheets("Sheet1").Cells(10, 5) = Clear
Worksheets("Sheet1").Cells(19, 6) = Clear
Worksheets("SHEET1").Cells(11, 2) = Clear
Worksheets("SHEET1").Cells(11, 3) = Clear
Worksheets("SHEET1").Cells(11, 4) = Clear
Worksheets("SHEET1").Cells(12, 2) = Clear
Worksheets("SHEET1").Cells(12, 3) = Clear
Worksheets("SHEET1").Cells(12, 4) = Clear
Worksheets("sheet1").Cells(14, 6) = Clear
Worksheets("sheet1").Cells(15, 6) = Clear
Worksheets("sheet1").Cells(16, 6) = Clear
Worksheets("sheet1").Cells(17, 6) = Clear
Worksheets("sheet1").Cells(26, 2) = Clear
updatecontrols
End Sub
Can anyone please point out why I am having the problem.
Thanks in advance for any replies.
Public Sub userform_initialize()
MultiPage1.Value = 0
'Clear Contents
Worksheets("Sheet1").Cells(14, 2) = Clear
Worksheets("Sheet1").Cells(15, 2) = Clear
Worksheets("Sheet1").Cells(16, 2) = Clear
Worksheets("Sheet1").Cells(17, 2) = Clear
Worksheets("Sheet1").Cells(13, 2) = Clear
Worksheets("Sheet1").Cells(13, 3) = Clear
Worksheets("Sheet1").Cells(13, 4) = Clear
Worksheets("Sheet1").Cells(5, 1) = Clear
Worksheets("Sheet1").Cells(8, 2) = Clear
Worksheets("Sheet1").Cells(8, 5) = Clear
Worksheets("Sheet1").Cells(8, 6) = Clear
Worksheets("Sheet1").Cells(5, 6) = Clear
Worksheets("Sheet1").Cells(9, 5) = Clear
Worksheets("Sheet1").Cells(10, 5) = Clear
Worksheets("Sheet1").Cells(19, 6) = Clear
Worksheets("SHEET1").Cells(11, 2) = Clear
Worksheets("SHEET1").Cells(11, 3) = Clear
Worksheets("SHEET1").Cells(11, 4) = Clear
Worksheets("SHEET1").Cells(12, 2) = Clear
Worksheets("SHEET1").Cells(12, 3) = Clear
Worksheets("SHEET1").Cells(12, 4) = Clear
Worksheets("sheet1").Cells(14, 6) = Clear
Worksheets("sheet1").Cells(15, 6) = Clear
Worksheets("sheet1").Cells(16, 6) = Clear
Worksheets("sheet1").Cells(17, 6) = Clear
Worksheets("sheet1").Cells(26, 2) = Clear
updatecontrols
End Sub