View Single Post
 
Old 04-18-2022, 06:03 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
 
Join Date: Apr 2014
Posts: 871
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

Code:
Sub insertformula()
cell01 = ActiveCell.Address(0, 0)
cell02 = ActiveCell.Offset(1, 0).Address(0, 0)
Range("c1").Formula = "=" & cell01 & "+" & cell02
End Sub
Reply With Quote