Sub UsefulInfo_in_VBA() Dim rg As Range Set rg = Worksheets(1).Range("A1:A5") ' Print the worksheet name from a range Debug.Print "Worksheet is: " & rg.Parent.Name ' Print the workbook name from a range Debug.Print "Workbook is: " & rg.Parent.Parent.Name ' Print the address of a range Set rg = Range(Cells(1, 1), Cells(56, 22)) Debug.Print rg.Address ' Print current user Debug.Print Application.UserName ' Print name, path and fullname of workbook Debug.Print ThisWorkbook.Name Debug.Print ThisWorkbook.Path Debug.Print ThisWorkbook.FullName End Sub