Problem with FollowHyperlink and Firefox
 

This macro takes active cell value and adds to a link and then opens
it in the default browser, it works fine with IE.
But with Firefox the link becomes, "http://www.rcdb.com/qs.htm?
quicksearch=JetlineFirefoxHTML\Shell\Open\Command" .

Sub rcdb_check()
Dim RCDBCLINK As String
RCDBCLINK = "http://www.rcdb.com/qs.htm?quicksearch=" &
ActiveCell.Value
ActiveWorkbook.FollowHyperlink Address:=RCDBCLINK, NewWindow:=True
End Sub

Does anybody have a solution for this or a alternative code?

Problem with FollowHyperlink and Firefox
 

This works for me with FireFox (and Opera for that matter).

Private Sub CommandButton1_Click()
Const HLINKBASE As String = "http://www.rcdb.com/qs1.htm?quicksearch="

Range("A1").Value = "Kingda Ka"
ActiveWorkbook.FollowHyperlink Address:=HLINKBASE & Range("A1").Value,
NewWindow:=True

End Sub

NickHK

wrote in message
oups.com...
This macro takes active cell value and adds to a link and then opens
it in the default browser, it works fine with IE.
But with Firefox the link becomes, "http://www.rcdb.com/qs.htm?
quicksearch=JetlineFirefoxHTML\Shell\Open\Command" .

Sub rcdb_check()
Dim RCDBCLINK As String
RCDBCLINK = "http://www.rcdb.com/qs.htm?quicksearch=" &
ActiveCell.Value
ActiveWorkbook.FollowHyperlink Address:=RCDBCLINK, NewWindow:=True
End Sub

Does anybody have a solution for this or a alternative code?

Problem with FollowHyperlink and Firefox
 

Seems to be some problem with FireFox portable installation, mine and
your code worked fine on a another computer. Thanx!

Problem with FollowHyperlink and Firefox
 

Just tried it with it the portable version and still works fine.
Sure it not case of the ActiveCell.Value not being waht you expect ?

NickHK

wrote in message
ps.com...
Seems to be some problem with FireFox portable installation, mine and
your code worked fine on a another computer. Thanx!