Plz check error in line no. 13.here give me error that
Error :- Run Time Error : '424'
Object required
plz check it these code wriiten in visual basic6.0
plz anyone help me
1. Private Declare Function ShellExecute Lib "shell32.dll" _
2. Alias "ShellExecuteA" (ByVal Hwnd As Long, _
3. ByVal lpOperation As String, ByVal lpFile As String, _
4. ByVal lpParameters As String, _
5. ByVal lpDirectory As String, _
6. ByVal nShowCmd As Long) As Long
7. Public Function OpenLocation(ByVal WhichFilePath As String, Optional sParams As String = "", Optional sStartIn As String = vbNullString, Optional lngOpenMode As Long = 1) As Long
8. OpenLocation = ShellExecute(0, "Open", WhichFilePath, sParams, sStartIn, lngOpenMode)
9. End Function
11. Private Sub cmd_bal_Click()
12. Dim A1C1Val As String
13. A1C1Val = CStr(Application.Sheets("d:\s\Book2.xls").Range("I 6").Value)
14. Text1.Text = A1C1Val
15. End Sub