The link provided should have been sufficient.
You can then validate the variables to ensure the Longs are within acceptable boundaries (Cancel/Exit will return 0)![]()
Dim W As Long, H As Long W = Application.InputBox("Enter chart width", "Set Chart Width", 100, Type:=1) L = Application.InputBox("Enter chart height", "Set Chart Height", 75, Type:=1)
Bookmarks