Hi,
I'm having coding its working perfectly in excel. Now what's my problem is i need to change that coding into excel VBA to Access VBA
I enter the coding here please go through this give me some solution
Code:
Sub test()
Dim myRng As Range, cell As Range
Dim Google1 As String, Google2 As String
Google1 = "http://google.com/search?btnI=1&q="""
Google2 = """&btnI=Google+Search"
Set myRng = Range("A1", Range("A65536").End(xlUp))
For Each cell In myRng
ActiveSheet.Hyperlinks.Add Anchor:=cell.Offset(0, 1), _
Address:=Google1 & cell.Value & Google2, _
TextToDisplay:=cell.Value
Next cell
End Sub
Thank u for spending time in this post..