View Single Post
 
Old 01-12-2015, 10:04 PM
cc.caroline15 cc.caroline15 is offline Windows 8 Office 2013
Novice
 
Join Date: Jan 2015
Posts: 9
cc.caroline15 is on a distinguished road
Default

Thank you so much!! you were a big help!!
Quote:
Originally Posted by macropod View Post
At its most basic you could use something like:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim StrAddr As String
StrAddr = Trim(InputBox("What is the Address of cell to update?", "Input Destination"))
On Error GoTo ErrExit
ActiveSheet.Range(StrAddr).Activate
ActiveCell.Value = "=SUM(B6:E6)"
ErrExit:
Application.ScreenUpdating = True
End Sub
Note that I haven't added any code to actually validate the address.
Reply With Quote