Mulighed for at angive range

Fandt selv et svar, håber andre kan få gavn af det (source: http://www.ozgrid.com/forum/showthread.php?t=29264)

LØSNING:
Sub InputboxDemo()
    Dim myRange As Range
    On Error Resume Next
   
    Set myRange = Application.InputBox(Prompt:="Please select range", _
    Title:="Testing", Type:=8)
   
    If (myRange Is Nothing) = False Then
        For Each rngCell In myRange.Cells
            If IsEmpty(rngCell.Value) = False Then
                MsgBox rngCell.Value
            End If
        Next rngCell
    End If
End Sub