Hi Hemant,
Nice logic. It will also be very helpful.
Regards,
Deepak Rai
On Thu, Oct 22, 2009 at 7:41 PM, Deepak Rai wrote:
> Hi JP,
>
> Please find the below VBA code for the solution of your problem. Hope this
> will help you.
>
> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Objec
Hi JP,
Please find the below VBA code for the solution of your problem. Hope this
will help you.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
a = ActiveCell.Address
For i = 1 To 10
On Error Resume Next
If a = ("$A$") & i Then
If Range("A" & i).Value < 1 T
Use this code Jp,
Sub get_path ()
Dim x as string
x=Application.getopenfilename
If not x="FALSE" then: Activecell=x
End sub
:)
Hemant Hegde
--~--~-~--~~~---~--~~
--
Some important lin