Ravi,
To get the scanned image into Excel, you can use this. Make sure the command
button has the .TakeFocusOnClick = False.

Private Sub CommandButton2_Click()
Dim cell As Range
Dim Counter As Long

Const FromScannerorCamera As Long = 1764
Const PicOffset As Long = 50

For Each cell In Range("rngFileNames")
Application.CommandBars.FindControl(, FromScannerorCamera).Execute
With Selection
.Name = cell.Text
.Left = Counter * PicOffset
Counter = Counter + 1
End With
Next

End Sub

If you want to talk directly to the scanner, look into using TWAIN from VBA.
Maybe one of these:
http://www.sharewareconnection.com/t...in-activex.htm

NickHK

"ravi" wrote in message
...
The workflow is like this:
One person is creating the list of drawing name to be scanned in Excel.
Then another person is performing a kind of scanning, creating the files
(scan001, scan002, scan003 and so on.....
After that they want to rename the scanned drawings according to the list.
for example:-

Scan001 list of drawing names in excel sheet
scan002 list of drawing names in excel sheet
scan003 list of drawing names in excel sheet


Can anyone help me on this.
Thanks a lot.