Public colLetter As Variant Sub Test() Dim rng As Range Set rng = ActiveWorkbook.ActiveSheet.Range("A1:A1") Call GetColLet(.Range("A1:A1")) End Sub '''''GetColLet''''' Public Sub GetColLet(var As Range) colLetter = Split(var.Address, "$")(1) MsgBox colLetter End Sub '''''EndGetColLet'''''
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools