How do I open a folder by value given in celle A1?

[blaksnm]

Here is my macro:
Sub OpenFolder()
Sheets("FilePath").Select
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

This macro requires that cell B1 is a hyperlink pointing to a spesific folder
I want the macro to open any folder - path given as expression in cell B1
Example: something like this:

Sub test1()
Dim FolderName
FolderName = Range("B2").Value 'Range("B2").value = "C:\!!MyFolder\MySubFolder\"
' and open this folder
End Sub

Appreciate your kindly guidens on this one

 

[Tetra201]

See if the following works for you:

Sub OpenFolder()
    Shell "cmd /C start """" """ & [B1] & """"
End Sub

 

[blaksnm]

Brilliant!
Thanks!