Welcome to FreeSoftwareServers Confluence Wiki

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

Public colLetter As Variant

Sub Test()
Dim rng As Range
Set rng = ActiveWorkbook.ActiveSheet.Range("A1:A1")
Call GetColLet(.Range("A1:A1"))
End Sub

Sub GetColLet(var As Range)
colLetter = Split(var.Address, "$")(1)
MsgBox colLetter
End Sub


  • No labels