Thanks Siti your method worked Thanks Rajan. for your inputs
how are your buddy?
On Dec 26, 5:38 pm, "Rajan_Verma" wrote:
> Try This :
>
> Function GiveNumeric(rngVal As Range) As String
> Dim intI As Integer
> For intI = 1 To Len(rngVal.Value)
> If Asc(UCase(Mid(rngVal.Val
Try This :
Function GiveNumeric(rngVal As Range) As String
Dim intIAs Integer
For intI = 1 To Len(rngVal.Value)
If Asc(UCase(Mid(rngVal.Value, intI, 1))) > 64 And
Asc(UCase(Mid(rngVal.Value, intI, 1))) < 91 Then
GiveNumeric = GiveNumeric & Asc(UCase(Mid(rngVal.Value, intI,
try this code and check if it helps
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
' ---save the backup---
Me.SaveAs Filename:="F:\MyData\" & Me.Name
'---save the main file---
Me.SaveAs Filename:="D:\MyDocument\" & Me.Name
Application.DisplayAlerts = True
End
