Welcome to FreeSoftwareServers Confluence Wiki

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

Compare with Current View Page History

« Previous Version 2 Current »

Public colLetter As Variant

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

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