Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace Column Letter only
I looking for a macro which would replace only the column letter in a
cell containing formula as at time there may me problem when cell formula have letters which refer to sheet name. Have tried the macro but it does not work - can anybody help or propose an alternative. Thxs Sub Replacecolumnletter() Dim c As Range Dim Frm As String Dim pos As Long Dim Replacefrom rng = InputBox("Letter to be replaced.") Dim Replaceto rng = InputBox("Letter to replace to.") For Each c In Selection pos = 1 Frm = c.Formula Do Until pos = 0 pos = InStr(pos, Frm, Replacefrom Select Case Mid(Frm, pos + 1, 1) Case 0 To 9, "$" Frm = Left(Frm, pos - 1) & Replace(Frm, Replacefrom,Replaceto, pos, 1) pos = pos + 1 End Select Loop c.Formula = Frm Next c End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Letter Replace Help!! | Excel Worksheet Functions | |||
How to replace column letter in refferences with a function using the old column letter? | Links and Linking in Excel | |||
How to replace column letter in refferences with a function using the old column letter? | Excel Worksheet Functions | |||
column header changed from letter to number, how return to letter | Excel Discussion (Misc queries) | |||
Replace Letter "E" with Letter "C" for 200 Different Sums in a Col | Excel Worksheet Functions |