Hi tuxy,

I moved the screen and calculation lines so they will work for you.

and changed the 'Trim' Statements


[vba]
Sub Mousepare()
Const strTitleSelectRange_c As String = "Select Range"
Dim rng1 As Excel.Range
Dim rng2 As Excel.Range
Dim cella As Object
Dim cella2 As Object
Dim C As String
Dim R As Integer
Dim c1r As Integer
Dim c2r As Integer
Dim c1c As Integer
Dim c2c As Integer
Dim tot As Integer


' Definisci i range
Set rng1 = GetRange("Select range n?1 with mouse:", strTitleSelectRange_c)
Set rng2 = GetRange("Select range n?2 with mouse :", strTitleSelectRange_c)
R = InputBox("Select offset (number value) to report:")
C = InputBox("Select column where report the value:")
contatore = 1


'//MOVED TO HERE to allow for mouse selection

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

'//Do global replace
rng1.Replace What:=Chr(160), Replacement:=""
rng2.Replace What:=Chr(160), Replacement:=""

For Each cella In rng1
'//Do once
cella = Trim (cella)

For Each cella2 In rng2

cella2 = Trim (cella2)
c1r = cella.Row
c2r = cella2.Row
'c1c = cella.Column
'c2c = cella.Column

If cella2 = cella Then

'Range(C & c1r).Value = cella2.Offset(0, 1).Value
Range(C & c1r).Value = cella2.Offset(0, R).Value
End If

contatore = contatore + 1
Next cella2
Next cella

With Application

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With

End Sub
[/vba]