using for each cell loop

[macro_learning]

Hi,

Can anyone please correct below code,

Sub trying_foreachcell_loop()

On Error Resume Next

Dim rng As Range

rng = Application.InputBox(" select rang", Type:=8)

For Each cell In rng

cell = VBA.Sqr(cell)

Next cell

End Sub

 

[NARAYANK991]

Hi ,

Same problem !

Use :

Set rng = Application.InputBox(" select rang", Type:=8)

When assigning a value to a range variable , you need to use :

rng.Value = Something

When assigning a range to a range variable , you need to use :

Set rng = Something

Narayan

 

[macro_learning]

ya.. it worked.... thank you so much