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