crazy vedios on wrote:

I have a list of hotel name for which, I need full address and zip code.

please provide me the VBA Code rather than searching one by one and
coping searched details to my workbook let do this with the help of
code.

#If Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal Operation As String, _
ByVal Filename As String, Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long) As Long
#ElseIf Win32 Then
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal Operation As String, _
ByVal Filename As String, Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long) As Long
#End If

Sub runGoogleSearch()
ShellExecute 0, "open", "https://www.google.com/search?q=" & _
Replace(ActiveCell.Value, " ", "+")
End Sub

Edit to suit.

--
Sanity is such a burden.